[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-mime.el
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-mime.el |
Date: |
Wed, 30 Jan 2008 07:07:11 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Bill Wohler <wohler> 08/01/30 07:07:11
Modified files:
lisp/mh-e : mh-mime.el
Log message:
(mh-mml-to-mime): Don't look up sender if From absent. Fixes "Wrong
type argument: stringp, nil" error.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-mime.el?cvsroot=emacs&r1=1.63&r2=1.64
Patches:
Index: mh-mime.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-mime.el,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- mh-mime.el 8 Jan 2008 20:46:27 -0000 1.63
+++ mh-mime.el 30 Jan 2008 07:07:10 -0000 1.64
@@ -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
+ ;; 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))))
+ (message-options-get 'message-sender)))))
;; Do an alias lookup on recipients
(message-options-set 'message-recipients
(mapconcat
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-mime.el,
Bill Wohler <=