# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 854703339 0
# Node ID 46b39d9f3ad0eefafe80b9f39be39901a02a8b75
# Parent  ba0d48943e13fc2b727b6a1d57f2480e53b7e9f6
(rmail-reply): Copy all the References: headers
from the original message.

diff -r ba0d48943e13 -r 46b39d9f3ad0 lisp/mail/rmail.el
--- 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.