From acc0d4454ac5a7b55d01c60a18a633d6cfd122d8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 15 Feb 2001 01:09:04 +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 a61a21b..99146cd 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-08 Katsumi Yamaoka * 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) -- 1.7.10.4