From: Jeffrey C Honig Date: Sun, 19 Aug 2007 21:17:59 +0000 (+0000) Subject: (mh-mml-to-mime): GPG requires e-mail addresses, not X-Git-Tag: emacs-pretest-23.0.90~11444 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2001ba38f6d4fe433c69dcf512bbc3433f7f300b;p=emacs.git (mh-mml-to-mime): GPG requires e-mail addresses, not aliases. So resolve aliases before passing addresses to GPG/PGP. Closes SF #649226. --- diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 72f39b2c361..c865fea9f9a 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,5 +1,9 @@ 2007-08-19 Jeffrey C Honig + * mh-mime.el (mh-mml-to-mime): GPG requires e-mail addresses, not + aliases. So resolve aliases before passing addresses to GPG/PGP. + Closes SF #649226. + * mh-e.el (mh-invisible-header-fields-internal): Update with all the entries from http://people.dsv.su.se/~jpalme/ietf/mail-headers, plus some of my diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index 4b10ad18592..eefaa0ed8ac 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -1621,8 +1621,22 @@ encoding if you wish by running this command. This action can be undone by running \\[undo]." (interactive) (require 'message) - (when mh-pgp-support-flag ;; This is only needed for PGP - (message-options-set-recipient)) + (when mh-pgp-support-flag + ;; PGP requires actual e-mail addresses, not aliases. + ;; 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 recipients + (message-options-set 'message-recipients + (mapconcat + '(lambda (ali) + (mail-strip-quoted-names (mh-alias-expand ali))) + (split-string (message-options-get 'message-recipients) "[, ]+") + ", "))) (let ((saved-text (buffer-string)) (buffer (current-buffer)) (modified-flag (buffer-modified-p)))