field for the simple citation line.
+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.
(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)