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