From: Bill Wohler <wohler@newt.com>
Date: Wed, 30 Jan 2008 07:07:10 +0000 (+0000)
Subject: (mh-mml-to-mime): Don't look up sender if From absent. Fixes "Wrong
X-Git-Tag: emacs-pretest-23.0.90~8327
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6dcf341ad3ba1208b3401169e50c024040d95a96;p=emacs.git

(mh-mml-to-mime): Don't look up sender if From absent. Fixes "Wrong
type argument: stringp, nil" error.
---

diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index ec0940a5d5e..5713ec8dba4 100644
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -1621,13 +1621,14 @@ This action can be undone by running \\[undo]."
   (require 'message)
   (when mh-pgp-support-flag
     ;; PGP requires actual e-mail addresses, not aliases.
-    ;; Parse the recipients and sender from the message
+    ;; Parse the recipients and sender from the message.
     (message-options-set-recipient)
-    ;; Do an alias lookup on sender
-    (message-options-set 'message-sender
-                     (mail-strip-quoted-names
-                      (mh-alias-expand
-                       (message-options-get 'message-sender))))
+    ;; Do an alias lookup on sender (if From field is present).
+    (when (message-options-get 'message-sender)
+      (message-options-set 'message-sender
+                           (mail-strip-quoted-names
+                            (mh-alias-expand
+                             (message-options-get 'message-sender)))))
     ;; Do an alias lookup on recipients
     (message-options-set 'message-recipients
                          (mapconcat