From a8f48a7436eee7bb7a627e1a66bbb937a0e3fb4c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 7 Apr 2000 04:40:52 +0000 Subject: [PATCH] (message-cite-original): Use "unknown sender" if from field does not exist. --- lisp/message.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index ab03b46..8f981d7 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2407,15 +2407,17 @@ be added to \"References\" field. (if (listp message-indent-citation-function) 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) + (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"))) (goto-char start) (while functions (funcall (pop functions))) -- 1.7.10.4