Re: Difficulties using EasyPG in gnus

[Daiki Ueno <ueno@unixuser.org>]

[-- Attachment #1: Type: text/plain, Size: 489 bytes --]

Hi,

>>>>> In <873bdjrn22.fsf@denkblock.local> 
>>>>>	Elias Oltmanns <oltmanns@uni-bonn.de> wrote:
> Since I use multiple email addresses, I added the following to my
> message-send-hook:
>   (setq pgg-default-user-id (message-field-value "From"))

> With EasyPG, however, pgg-default-user-id doesn't seem to have any
> effect at all. On the contrary, it seems that always the first
> private key available in the key ring is chosen.

This is a bug of pgg-epg.el.  I fixed it as follows.


[-- Attachment #2: pgg-epg.el.diff --]
[-- Type: application/octet-stream, Size: 692 bytes --]

Index: pgg-epg.el
===================================================================
RCS file: /cvs/root/epg/pgg-epg.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- pgg-epg.el	1 May 2006 03:42:56 -0000	1.22
+++ pgg-epg.el	4 Jul 2006 02:49:44 -0000	1.23
@@ -152,6 +152,9 @@
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
     (epg-context-set-passphrase-callback context #'pgg-epg-passphrase-callback)
+    (epg-context-set-signers
+     context
+     (list (car (epg-list-keys context pgg-default-user-id t))))
     (save-excursion
       (set-buffer (get-buffer-create pgg-output-buffer))
       (erase-buffer)

[-- Attachment #3: Type: text/plain, Size: 25 bytes --]


Regards,
-- 
Daiki Ueno