[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el

[Eli Zaretskii]

Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.402 emacs/lisp/mail/rmail.el:1.403
*** emacs/lisp/mail/rmail.el:1.402      Mon May 16 11:16:34 2005
--- emacs/lisp/mail/rmail.el    Sat May 21 14:13:00 2005
***************
*** 3444,3450 ****
       ;; 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
       subject
       (rmail-make-in-reply-to-field from date message-id)
       (if just-sender
--- 3444,3454 ----
       ;; I don't know whether there are other mailers that still
       ;; need the names to be stripped.
  ;;;     (mail-strip-quoted-names 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