* PATCH: Bind `rmail-dont-reply-to-names'
@ 2015-10-18 16:04 Michael Sperber
2015-10-19 16:29 ` Andreas Schwab
0 siblings, 1 reply; 3+ messages in thread
From: Michael Sperber @ 2015-10-18 16:04 UTC (permalink / raw)
To: ding
[-- 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 "")
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: PATCH: Bind `rmail-dont-reply-to-names'
2015-10-18 16:04 PATCH: Bind `rmail-dont-reply-to-names' Michael Sperber
@ 2015-10-19 16:29 ` Andreas Schwab
2015-10-20 6:04 ` Katsumi Yamaoka
0 siblings, 1 reply; 3+ messages in thread
From: Andreas Schwab @ 2015-10-19 16:29 UTC (permalink / raw)
To: Michael Sperber; +Cc: ding
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."
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: PATCH: Bind `rmail-dont-reply-to-names'
2015-10-19 16:29 ` Andreas Schwab
@ 2015-10-20 6:04 ` Katsumi Yamaoka
0 siblings, 0 replies; 3+ messages in thread
From: Katsumi Yamaoka @ 2015-10-20 6:04 UTC (permalink / raw)
To: Andreas Schwab; +Cc: Michael Sperber, ding
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))
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2015-10-20 6:04 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-10-18 16:04 PATCH: Bind `rmail-dont-reply-to-names' Michael Sperber
2015-10-19 16:29 ` Andreas Schwab
2015-10-20 6:04 ` Katsumi Yamaoka
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).