[Emacs-diffs] /srv/bzr/emacs/trunk r112782: * gnus/nnmail.el (nnmail-fancy-expiry-target): Also bind mail-dont-reply-to-names

[Glenn Morris]

------------------------------------------------------------
revno: 112782
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-29 20:26:13 -0700
message:
  * gnus/nnmail.el (nnmail-fancy-expiry-target): Also bind 
mail-dont-reply-to-names
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnmail.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-05-30 03:25:29 +0000
+++ b/lisp/gnus/ChangeLog       2013-05-30 03:26:13 +0000
@@ -1,5 +1,8 @@
 2013-05-30  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/gnus/nnmail.el'
--- a/lisp/gnus/nnmail.el       2013-05-29 02:40:43 +0000
+++ b/lisp/gnus/nnmail.el       2013-05-30 03:26:13 +0000
@@ -1952,8 +1952,10 @@
        ((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)) "")))))