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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/26 02:07:01

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-reply): Don't include Resent-To and Resent-Cc in replies.  
(Bug#512)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15179&r2=1.15180
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.466&r2=1.467

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15179
retrieving revision 1.15180
diff -u -b -r1.15179 -r1.15180
--- ChangeLog   25 Jan 2009 22:55:17 -0000      1.15179
+++ ChangeLog   26 Jan 2009 02:06:58 -0000      1.15180
@@ -1,3 +1,8 @@
+2009-01-26  Glenn Morris  <address@hidden>
+
+       * mail/rmail.el (rmail-reply): Don't include Resent-To and Resent-Cc in
+       replies.  (Bug#512)
+
 2009-01-25  Ulf Jasper  <address@hidden>
 
        * calendar/icalendar.el (icalendar-uid-format): Fixed doc string.

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.466
retrieving revision 1.467
diff -u -b -r1.466 -r1.467
--- mail/rmail.el       24 Jan 2009 03:35:53 -0000      1.466
+++ mail/rmail.el       26 Jan 2009 02:07:01 -0000      1.467
@@ -3211,9 +3211,10 @@
              message-id (mail-fetch-field "message-id")
              references (mail-fetch-field "references" nil nil t)
              resent-reply-to (mail-fetch-field "resent-reply-to" nil t)
-             resent-cc (and (not just-sender)
-                            (mail-fetch-field "resent-cc" nil t))
-             resent-to (or (mail-fetch-field "resent-to" nil t) "")
+             ;; Bug#512.  It's inappropriate to reply to these addresses.
+;;;          resent-cc (and (not just-sender)
+;;;                         (mail-fetch-field "resent-cc" nil t))
+;;;          resent-to (or (mail-fetch-field "resent-to" nil t) "")
 ;;;          resent-subject (mail-fetch-field "resent-subject")
 ;;;          resent-date (mail-fetch-field "resent-date")
 ;;;          resent-message-id (mail-fetch-field "resent-message-id")
@@ -3227,14 +3228,15 @@
                  to (or (mail-fetch-field "to" nil t) ""))))))
 
     ;; Merge the resent-to and resent-cc into the to and cc.
-    (if (and resent-to (not (equal resent-to "")))
-       (if (not (equal to ""))
-           (setq to (concat to ", " resent-to))
-         (setq to resent-to)))
-    (if (and resent-cc (not (equal resent-cc "")))
-       (if (not (equal cc ""))
-           (setq cc (concat cc ", " resent-cc))
-         (setq cc resent-cc)))
+    ;; Bug#512.  It's inappropriate to reply to these addresses.
+;;;    (if (and resent-to (not (equal resent-to "")))
+;;;    (if (not (equal to ""))
+;;;        (setq to (concat to ", " resent-to))
+;;;      (setq to resent-to)))
+;;;    (if (and resent-cc (not (equal resent-cc "")))
+;;;    (if (not (equal cc ""))
+;;;        (setq cc (concat cc ", " resent-cc))
+;;;      (setq cc resent-cc)))
     ;; Add `Re: ' to subject if not there already.
     (and (stringp subject)
         (setq subject