From: yamaoka <yamaoka>
Date: Thu, 15 Feb 2001 01:09:04 +0000 (+0000)
Subject: * lisp/message.el (message-cite-original-without-signature): Extract from
X-Git-Tag: t-gnus-6_14_6-02-last-
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=acc0d4454ac5a7b55d01c60a18a633d6cfd122d8;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 a61a21b..99146cd 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-08  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/nnshimbun.el (nnshimbun-fml-get-headers): Fix unbalanced
diff --git a/lisp/message.el b/lisp/message.el
index c9c27a4..c4f86ac 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2453,7 +2453,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)