comparison 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
comparison
equal deleted inserted replaced
90184:9e5e2f01c7ab 90185:5b029ff3b08d
3442 ;; Using mail-strip-quoted-names is undesirable with newer mailers 3442 ;; Using mail-strip-quoted-names is undesirable with newer mailers
3443 ;; since they can handle the names unstripped. 3443 ;; since they can handle the names unstripped.
3444 ;; I don't know whether there are other mailers that still 3444 ;; I don't know whether there are other mailers that still
3445 ;; need the names to be stripped. 3445 ;; need the names to be stripped.
3446 ;;; (mail-strip-quoted-names reply-to) 3446 ;;; (mail-strip-quoted-names reply-to)
3447 reply-to 3447 ;; Remove unwanted names from reply-to, since Mail-Followup-To
3448 ;; header causes all the names in it to wind up in reply-to, not
3449 ;; in cc. But if what's left is an empty list, use the original.
3450 (let* ((reply-to-list (rmail-dont-reply-to reply-to)))
3451 (if (string= reply-to-list "") reply-to reply-to-list))
3448 subject 3452 subject
3449 (rmail-make-in-reply-to-field from date message-id) 3453 (rmail-make-in-reply-to-field from date message-id)
3450 (if just-sender 3454 (if just-sender
3451 nil 3455 nil
3452 ;; mail-strip-quoted-names is NOT necessary for rmail-dont-reply-to 3456 ;; mail-strip-quoted-names is NOT necessary for rmail-dont-reply-to