From: yamaoka <yamaoka>
Date: Fri, 7 Apr 2000 04:40:52 +0000 (+0000)
Subject: (message-cite-original): Use "unknown sender" if from field does not exist.
X-Git-Tag: t-gnus-6_14_1-17~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a8f48a7436eee7bb7a627e1a66bbb937a0e3fb4c;p=elisp%2Fgnus.git-

(message-cite-original): Use "unknown sender" if from field does not exist.
---

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)))