From: morioka <morioka>
Date: Wed, 30 Sep 1998 09:02:30 +0000 (+0000)
Subject: (message-reply): Use `make-full-mail-header'.
X-Git-Tag: chao-gnus-6_9_1~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c193648d30dcab79fc5b76b46a251132f98da86e;p=elisp%2Fgnus.git-

(message-reply): Use `make-full-mail-header'.
(message-followup): Likewise.
---

diff --git a/lisp/message.el b/lisp/message.el
index 1e1ac50..e3c0872 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3628,7 +3628,8 @@ OTHER-HEADERS is an alist of header/value pairs."
 			    (if wide to-address nil)))
 
     (setq message-reply-headers
-	  (vector 0 subject from date message-id references 0 0 ""))
+	  (make-full-mail-header
+	   0 subject from date message-id references 0 0 ""))
 
     (message-setup
      `((Subject . ,subject)
@@ -3753,7 +3754,8 @@ responses here are directed to other newsgroups."))
      cur)
 
     (setq message-reply-headers
-	  (vector 0 subject from date message-id references 0 0 ""))))
+	  (make-full-mail-header
+	   0 subject from date message-id references 0 0 ""))))
 
 
 ;;;###autoload