From: yamaoka <yamaoka>
Date: Mon, 24 Apr 2000 02:06:52 +0000 (+0000)
Subject: Async.
X-Git-Tag: t-gnus-6_14-quimby-before-AC-changed-~113
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8427f8d24ae6a23031aca059a2c0f098b06fe22d;p=elisp%2Fgnus.git-

Async.
(message-reply): Use `make-full-mail-header-from-decoded-header'.
---

diff --git a/lisp/message.el b/lisp/message.el
index 5ac9728..55a244b 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4395,7 +4395,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-from-decoded-header
+	   0 subject from date message-id references 0 0 ""))
 
     (message-setup
      `((Subject . ,subject)