From 4d084cd5482c470be7f0fa28152ec448cfcf9f7f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 15 Feb 2001 01:09:48 +0000 Subject: [PATCH] * lisp/message.el (message-cite-original-without-signature): Extract from field for the simple citation line. --- ChangeLog | 5 +++++ lisp/message.el | 13 ++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index cf57fcc..31a4b30 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-02-15 Katsumi Yamaoka + + * lisp/message.el (message-cite-original-without-signature): + Extract from field for the simple citation line. + 2001-02-14 Katsumi Yamaoka * 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) -- 1.7.10.4