* epg.el (epg-start-encrypt): Extract primary key ID from

epg-context-signers.
Thanks to Steve Youngs <steve@sxemacs.org>

diff --git a/ChangeLog b/ChangeLog
index 983c43b..c9e80c9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-07-28  Daiki Ueno  <ueno@unixuser.org>
 
+       * epg.el (epg-start-encrypt): Extract primary key ID from
+       epg-context-signers.
+       Thanks to Steve Youngs <steve@sxemacs.org>
+
        * pgg-epg.el (pgg-epg-encrypt-region): Fixed a bug; it didn't
        give CONTEXT to epg-list-keys.
        Thanks to Steve Youngs <steve@sxemacs.org>

diff --git a/epg.el b/epg.el
index f507a27..7b28eac 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -1781,9 +1781,13 @@ If you are unsure, use synchronous version of this function
                     (if sign
                         (cons "--sign"
                               (apply #'nconc
-                                     (mapcar (lambda (signer)
-                                               (list "-u" signer))
-                                             (epg-context-signers context)))))
+                                     (mapcar
+                                      (lambda (signer)
+                                        (list "-u"
+                                              (epg-sub-key-id
+                                               (car (epg-key-sub-key-list
+                                                     signer)))))
+                                      (epg-context-signers context)))))
                     (apply #'nconc
                            (mapcar
                             (lambda (recipient)