# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1201676830 0
# Node ID 3f6a9fe50ccee2466847d7168ab13b6edf46ac0e
# Parent  dd2cecc049d47d0e116bd7c7ddc84dfdd734ab5a
(mh-mml-to-mime): Don't look up sender if From absent. Fixes "Wrong
type argument: stringp, nil" error.

diff -r dd2cecc049d4 -r 3f6a9fe50cce lisp/mh-e/mh-mime.el
--- a/lisp/mh-e/mh-mime.el	Wed Jan 30 07:06:39 2008 +0000
+++ b/lisp/mh-e/mh-mime.el	Wed Jan 30 07:07:10 2008 +0000
@@ -1621,13 +1621,14 @@
   (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