# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1116684780 0
# Node ID bb278282ddbcd9d06887544ed49a2d184df4024a
# Parent  5ff8434df6b3924582ebc8b39d22c2d8ae9fc8f4
(rmail-reply): Filter the list in reply-to through rmail-dont-reply-to.

diff -r 5ff8434df6b3 -r bb278282ddbc lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sat May 21 13:33:55 2005 +0000
+++ b/lisp/mail/rmail.el	Sat May 21 14:13:00 2005 +0000
@@ -3444,7 +3444,11 @@
      ;; 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