From 8d48f3f9618520f2f98656b2172343d9395ec5d2 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 29 May 2013 20:26:13 -0700 Subject: [PATCH] * gnus/nnmail.el (nnmail-fancy-expiry-target): Also bind mail-dont-reply-to-names --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/nnmail.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index eb12b67e733..2f79e0ec0f7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2013-05-30 Glenn Morris + * nnmail.el (nnmail-fancy-expiry-target): + Also bind mail-dont-reply-to-names. + * spam-stat.el (spam-stat-save): No need to tweak font-lock in temp buffers. diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 28b28369ae4..5be449e9a6b 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1952,8 +1952,10 @@ If TIME is nil, then return the cutoff time for oldness instead." ((and (equal header 'to-from) (or (string-match (cadr regexp-target-pair) from) (and (string-match (cadr regexp-target-pair) to) - (let ((rmail-dont-reply-to-names - (message-dont-reply-to-names))) + (let* ((mail-dont-reply-to-names + (message-dont-reply-to-names)) + (rmail-dont-reply-to-names ; obsolete since 24.1 + mail-dont-reply-to-names)) (equal (if (fboundp 'rmail-dont-reply-to) (rmail-dont-reply-to from) (mail-dont-reply-to from)) ""))))) -- 2.39.2