PATCH: Bind `rmail-dont-reply-to-names'

[Michael Sperber <sperber@deinprogramm.de>]

[-- Attachment #1: Type: text/plain, Size: 141 bytes --]


XEmacs uses `rmail-dont-reply-to-names' in a few places, bound in the
attached patch.  Could this be applied and pushed?

-- 
Regards,
Mike

[-- Attachment #2: Type: text/plain, Size: 1474 bytes --]

commit 93e9c3007ab16c6e95016d302c5fdd6e386c94c3
Author: Mike Sperber <sperber@deinprogramm.de>
Date:   Sun Oct 18 17:43:47 2015 +0200

    	* message.el (message-get-reply-headers): In addition to
    	`mail-dont-reply-to-names', bind `rmail-dont-reply-to-names', which is
    	used in XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ea368d..2f7fd2b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-10-18  Michael Sperber  <mike@xemacs.org>
+
+	* message.el (message-get-reply-headers): In addition to
+	`mail-dont-reply-to-names', bind `rmail-dont-reply-to-names', which is
+	used in XEmacs.
+
 2015-10-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* auth-source.el (auth-source-epa-make-gpg-token): Revert.
diff --git a/lisp/message.el b/lisp/message.el
index 12e4e49..7d0534c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6974,7 +6974,8 @@ want to get rid of this query permanently.")))
       (while (string-match "[ \t][ \t]+" recipients)
 	(setq recipients (replace-match " " t t recipients)))
       ;; Remove addresses that match `mail-dont-reply-to-names'.
-      (let ((mail-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 (message-dont-reply-to-names)))
 	(setq recipients (mail-dont-reply-to recipients)))
       ;; Perhaps "Mail-Copies-To: never" removed the only address?
       (if (string-equal recipients "")