Mercurial > emacs

changeset 62587:bb278282ddbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-reply): Filter the list in reply-to through rmail-dont-reply-to.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 21 May 2005 14:13:00 +0000
parents 5ff8434df6b3
children bf515cb14f37
files lisp/mail/rmail.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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