Mercurial > emacs
diff lisp/mail/rmail.el @ 90185:5b029ff3b08d
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-55
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 320-323)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 26 May 2005 05:42:19 +0000 |
parents | f042e7c0fe20 bb278282ddbc |
children | 01137c1fdbe9 |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sun May 22 08:23:26 2005 +0000 +++ b/lisp/mail/rmail.el Thu May 26 05:42:19 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