From d184e18226617d2356d764966cfbf847e47e8ada Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 21 May 2005 14:13:00 +0000 Subject: (rmail-reply): Filter the list in reply-to through rmail-dont-reply-to. --- lisp/mail/rmail.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c68bb80d80..591ebad2b6 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -3444,7 +3444,11 @@ use \\[mail-yank-original] to yank the original message into it." ;; I don't know whether there are other mailers that still ;; need the names to be stripped. ;;; (mail-strip-quoted-names reply-to) - reply-to + ;; Remove unwanted names from reply-to, since Mail-Followup-To + ;; header causes all the names in it to wind up in reply-to, not + ;; in cc. But if what's left is an empty list, use the original. + (let* ((reply-to-list (rmail-dont-reply-to reply-to))) + (if (string= reply-to-list "") reply-to reply-to-list)) subject (rmail-make-in-reply-to-field from date message-id) (if just-sender -- cgit v1.2.3