From: yamaoka <yamaoka>
Date: Thu, 6 Apr 2000 23:57:46 +0000 (+0000)
Subject: (message-cite-original): Extract from filed for the simple citation line.
X-Git-Tag: t-gnus-6_14_1-17~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2fc537aff7d62819999a3497490ccee48387fd4b;p=elisp%2Fgnus.git-

(message-cite-original): Extract from filed for the simple citation line.
---

diff --git a/lisp/message.el b/lisp/message.el
index 27c419d..ab03b46 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2406,7 +2406,16 @@ be added to \"References\" field.
 	   (when message-indent-citation-function
 	     (if (listp message-indent-citation-function)
 		 message-indent-citation-function
-	       (list message-indent-citation-function)))))
+	       (list message-indent-citation-function))))
+	  (from (save-restriction
+		  (narrow-to-region (point)
+				    (if (search-forward "\n\n" nil t)
+					(1- (point))
+				      (point-max)))
+		  (message-fetch-field "from")))
+	  (message-reply-headers (or message-reply-headers
+				     (make-mail-header))))
+      (mail-header-set-from message-reply-headers from)
       (goto-char start)
       (while functions
 	(funcall (pop functions)))