From: Glenn Morris Date: Thu, 30 May 2013 03:26:13 +0000 (-0700) Subject: * gnus/nnmail.el (nnmail-fancy-expiry-target): Also bind mail-dont-reply-to-names X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~131 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d48f3f9618520f2f98656b2172343d9395ec5d2;p=emacs.git * gnus/nnmail.el (nnmail-fancy-expiry-target): Also bind mail-dont-reply-to-names --- 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)) "")))))