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

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

[Michael Sperber]

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

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

[Andreas Schwab]

Michael Sperber <sperber@deinprogramm.de> writes:

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

Perhaps avoid calling message-dont-reply-to-names more than once?

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

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

[Katsumi Yamaoka]

On Mon, 19 Oct 2015 18:29:21 +0200, Andreas Schwab wrote:
> Michael Sperber <sperber@deinprogramm.de> writes:
>> +      (let ((mail-dont-reply-to-names (message-dont-reply-to-names))
>> +	    (rmail-dont-reply-to-names (message-dont-reply-to-names)))

> Perhaps avoid calling message-dont-reply-to-names more than once?

I did it last night.  Sorry for my reticence.

(let* ((mail-dont-reply-to-names (message-dont-reply-to-names))
       (rmail-dont-reply-to-names mail-dont-reply-to-names))