From: yamaoka <yamaoka>
Date: Thu, 15 Feb 2001 01:09:48 +0000 (+0000)
Subject: * lisp/message.el (message-cite-original-without-signature): Extract from
X-Git-Tag: t-gnus-6_15_0-07-quimby-last-~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d084cd5482c470be7f0fa28152ec448cfcf9f7f;p=elisp%2Fgnus.git-

* lisp/message.el (message-cite-original-without-signature): Extract from
 field for the simple citation line.
---

diff --git a/ChangeLog b/ChangeLog
index cf57fcc..31a4b30 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-15  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/message.el (message-cite-original-without-signature):
+	Extract from field for the simple citation line.
+
 2001-02-14  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 07.
diff --git a/lisp/message.el b/lisp/message.el
index b983eae..e68ff3b 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2595,7 +2595,18 @@ 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))))
+	(message-reply-headers (or message-reply-headers
+				   (make-mail-header))))
+    (mail-header-set-from message-reply-headers
+			  (save-restriction
+			    (narrow-to-region
+			     (point)
+			     (if (search-forward "\n\n" nil t)
+				 (1- (point))
+			       (point-max)))
+			    (or (message-fetch-field "from")
+				"unknown sender")))
     ;; Allow undoing.
     (undo-boundary)
     (goto-char end)