Mercurial > emacs
diff lisp/mh-e/mh-mime.el @ 88078:3f6a9fe50cce
(mh-mml-to-mime): Don't look up sender if From absent. Fixes "Wrong
type argument: stringp, nil" error.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Wed, 30 Jan 2008 07:07:10 +0000 |
parents | 107ccd98fa12 |
children | c70e45a7acfd 90c9ebd43589 |
line wrap: on
line diff
--- 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