(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 (file)
--- 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)))