From 11aea8f56dd0bc95c444ccabc3e44affdace67f1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Jan 1997 09:35:39 +0000 Subject: [PATCH] (rmail-reply): Copy all the References: headers from the original message. --- lisp/mail/rmail.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 79123bb0591..56d21765086 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2235,7 +2235,7 @@ Normally include CC: to all other recipients of original message; 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 @@ use \\[mail-yank-original] to yank the original message into it." 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 @@ use \\[mail-yank-original] to yank the original message into it." (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. -- 2.39.2