* lisp/message.el (message-cite-original-without-signature): Extract from
authoryamaoka <yamaoka>
Thu, 15 Feb 2001 01:09:48 +0000 (01:09 +0000)
committeryamaoka <yamaoka>
Thu, 15 Feb 2001 01:09:48 +0000 (01:09 +0000)
 field for the simple citation line.

ChangeLog
lisp/message.el

index cf57fcc..31a4b30 100644 (file)
--- 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.
 2001-02-14  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el (gnus-revision-number): Increment to 07.
index b983eae..e68ff3b 100644 (file)
@@ -2595,7 +2595,18 @@ be added to \"References\" field.
         (when message-indent-citation-function
           (if (listp message-indent-citation-function)
               message-indent-citation-function
         (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)
     ;; Allow undoing.
     (undo-boundary)
     (goto-char end)