[Emacs-commit] emacs/lisp/mh-e mh-mime.el ChangeLog

[Jeffrey C Honig]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jeffrey C Honig <jchonig>       07/08/19 21:17:59

Modified files:
        lisp/mh-e      : mh-mime.el ChangeLog 

Log message:
        (mh-mml-to-mime): GPG requires e-mail addresses, not
        aliases.  So resolve aliases before passing addresses to GPG/PGP.
        Closes SF #649226.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-mime.el?cvsroot=emacs&r1=1.57&r2=1.58
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/ChangeLog?cvsroot=emacs&r1=1.247&r2=1.248

Patches:
Index: mh-mime.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-mime.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- mh-mime.el  26 Jul 2007 05:27:16 -0000      1.57
+++ mh-mime.el  19 Aug 2007 21:17:58 -0000      1.58
@@ -1621,8 +1621,22 @@
 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)))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/ChangeLog,v
retrieving revision 1.247
retrieving revision 1.248
diff -u -b -r1.247 -r1.248
--- ChangeLog   19 Aug 2007 20:59:01 -0000      1.247
+++ ChangeLog   19 Aug 2007 21:17:59 -0000      1.248
@@ -1,5 +1,9 @@
 2007-08-19  Jeffrey C Honig  <address@hidden>
 
+       * 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