From 2fc537aff7d62819999a3497490ccee48387fd4b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 6 Apr 2000 23:57:46 +0000 Subject: [PATCH] (message-cite-original): Extract from filed for the simple citation line. --- lisp/message.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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))) -- 1.7.10.4