From: ueno <ueno>
Date: Fri, 28 Jul 2006 05:04:33 +0000 (+0000)
Subject: * epg.el (epg-start-encrypt): Extract primary key ID from
X-Git-Tag: epg-0_0_4~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d552bc67a80b5681c1212b3f3461ac802eef1a11;p=elisp%2Fepg.git

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