mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* gnus/nnmail.el (nnmail-fancy-expiry-target): Also bind mail-dont-reply-to-names

Browse source
This commit is contained in:
Glenn Morris 2013-05-29 20:26:13 -07:00
parent 7029bc7d31
commit 8d48f3f961
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View file

@ -1,5 +1,8 @@
2013-05-30 Glenn Morris <rgm@gnu.org>
* 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.

6
lisp/gnus/nnmail.el
View file

@ -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)) "")))))