procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-reply): Use rmail-apply-in-message so that this function has

Browse source 
access to all the headers, not just the visible ones.
This commit is contained in:
Glenn Morris 2009-03-02 02:19:24 +00:00
parent ba9db1c559
commit 5f3b706381
2 changed files with 34 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-03-02 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-reply): Use rmail-apply-in-message so that this
function has access to all the headers, not just the visible ones.
2009-03-01 Chong Yidong <cyd@stupidchicken.com>
* abbrev.el (clear-abbrev-table): Always return nil (Bug#2515).

68
lisp/mail/rmail.el
View file

@ -3300,45 +3300,35 @@ use \\[mail-yank-original] to yank the original message into it."
(let (from reply-to cc subject date to message-id references
resent-to resent-cc resent-reply-to
(msgnum rmail-current-message))
(save-excursion
(save-restriction
(widen)
(if (rmail-buffers-swapped-p)
(narrow-to-region
(goto-char (point-min))
(search-forward "\n\n" nil 'move))
(goto-char (rmail-msgbeg rmail-current-message))
(forward-line 1)
(narrow-to-region
(point)
(search-forward "\n\n"
(rmail-msgend rmail-current-message)
'move)))
(setq from (mail-fetch-field "from")
reply-to (or (mail-fetch-field "mail-reply-to" nil t)
(mail-fetch-field "reply-to" nil t)
from)
subject (mail-fetch-field "subject")
date (mail-fetch-field "date")
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)
;; 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")
)
(unless just-sender
(if (mail-fetch-field "mail-followup-to" nil t)
;; If this header field is present, use it instead of
;; the To and CC fields.
(setq to (mail-fetch-field "mail-followup-to" nil t))
(setq cc (or (mail-fetch-field "cc" nil t) "")
to (or (mail-fetch-field "to" nil t) ""))))))
(rmail-apply-in-message
rmail-current-message
(lambda ()
(search-forward "\n\n" nil 'move)
(narrow-to-region (point-min) (point))
(setq from (mail-fetch-field "from")
reply-to (or (mail-fetch-field "mail-reply-to" nil t)
(mail-fetch-field "reply-to" nil t)
from)
subject (mail-fetch-field "subject")
date (mail-fetch-field "date")
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)
;; 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")
)
(unless just-sender
(if (mail-fetch-field "mail-followup-to" nil t)
;; If this header field is present, use it instead of the
;; To and CC fields.
(setq to (mail-fetch-field "mail-followup-to" nil t))
(setq cc (or (mail-fetch-field "cc" nil t) "")
to (or (mail-fetch-field "to" nil t) ""))))))
;; Merge the resent-to and resent-cc into the to and cc.
;; Bug#512. It's inappropriate to reply to these addresses.
;;; (if (and resent-to (not (equal resent-to "")))