[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el |
Date: |
Mon, 26 Jan 2009 02:07:01 +0000 |
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
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Stefan Monnier, 2009/01/23
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/01/23
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el,
Glenn Morris <=
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/01/27
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/01/27
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/01/30
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Stefan Monnier, 2009/01/31