Mercurial > emacs
changeset 101508:86f67454cfbb
(rmail-reply): Don't include Resent-To and Resent-Cc in replies. (Bug#512)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 26 Jan 2009 02:06:58 +0000 |
| parents | a9c197620719 |
| children | c915fbc219ff |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 18 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jan 26 01:51:18 2009 +0000 +++ b/lisp/ChangeLog Mon Jan 26 02:06:58 2009 +0000 @@ -1,3 +1,8 @@ +2009-01-26 Glenn Morris <rgm@gnu.org> + + * mail/rmail.el (rmail-reply): Don't include Resent-To and Resent-Cc in + replies. (Bug#512) + 2009-01-25 Ulf Jasper <ulf.jasper@web.de> * calendar/icalendar.el (icalendar-uid-format): Fixed doc string.
--- a/lisp/mail/rmail.el Mon Jan 26 01:51:18 2009 +0000 +++ b/lisp/mail/rmail.el Mon Jan 26 02:06:58 2009 +0000 @@ -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