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

[Michael Sperber]

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

[Andreas Schwab]

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.

[Katsumi Yamaoka]

Post by Andreas Schwab

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