mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(mh-mml-to-mime): GPG requires e-mail addresses, not

Browse Source 
aliases.  So resolve aliases before passing addresses to GPG/PGP.
Closes SF #649226.
This commit is contained in:
Jeffrey C Honig 2007-08-19 21:17:59 +00:00
parent 243256f813
commit 2001ba38f6
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mh-e/ChangeLog
View File

@ -1,5 +1,9 @@
2007-08-19 Jeffrey C Honig <jch@honig.net>
* 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

18
lisp/mh-e/mh-mime.el
View File

@ -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)))