From d552bc67a80b5681c1212b3f3461ac802eef1a11 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 28 Jul 2006 05:04:33 +0000 Subject: [PATCH] * epg.el (epg-start-encrypt): Extract primary key ID from epg-context-signers. Thanks to Steve Youngs --- ChangeLog | 4 ++++ epg.el | 10 +++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 983c43b..c9e80c9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2006-07-28 Daiki Ueno + * epg.el (epg-start-encrypt): Extract primary key ID from + epg-context-signers. + Thanks to Steve Youngs + * pgg-epg.el (pgg-epg-encrypt-region): Fixed a bug; it didn't give CONTEXT to epg-list-keys. Thanks to Steve Youngs 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) -- 1.7.10.4