From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 21 May 2005 14:13:00 +0000 (+0000)
Subject: (rmail-reply): Filter the list in reply-to through rmail-dont-reply-to.
X-Git-Tag: ttn-vms-21-2-B4~93
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d184e18226617d2356d764966cfbf847e47e8ada;p=emacs.git

(rmail-reply): Filter the list in reply-to through rmail-dont-reply-to.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index c68bb80d80f..591ebad2b68 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