Mercurial > emacs
changeset 16953:46b39d9f3ad0
(rmail-reply): Copy all the References: headers
from the original message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 31 Jan 1997 09:35:39 +0000 |
| parents | ba0d48943e13 |
| children | 380e33f3a5c6 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Jan 31 09:34:45 1997 +0000 +++ b/lisp/mail/rmail.el Fri Jan 31 09:35:39 1997 +0000 @@ -2235,7 +2235,7 @@ prefix argument means ignore them. While composing the reply, use \\[mail-yank-original] to yank the original message into it." (interactive "P") - (let (from reply-to cc subject date to message-id + (let (from reply-to cc subject date to message-id references resent-to resent-cc resent-reply-to (msgnum rmail-current-message) (rmail-buffer (current-buffer))) @@ -2263,7 +2263,8 @@ date (mail-fetch-field "date") to (or (mail-fetch-field "to" nil t) "") message-id (mail-fetch-field "message-id") - resent-reply-to (mail-fetch-field "resent-reply-to" t) + 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) "") @@ -2303,7 +2304,12 @@ (save-excursion (set-buffer rmail-send-actions-rmail-buffer) (if msgnum - (rmail-set-attribute "answered" t msgnum)))))))) + (rmail-set-attribute "answered" t msgnum))))))) + nil + (cons (cons "References" message-id) + (mapcar (function (lambda (elt) + (cons "References" elt))) + references))) ;; We keep the rmail buffer and message number in these ;; buffer-local vars in the sendmail buffer, ;; so that rmail-only-expunge can relocate the message number.