Re: Gnus + GPG integration broken after revision 102412.

[Ashish SHUKLA]

Daniel Dehennin writes:
> address@hidden (Ashish SHUKLA) writes:

>> Daiki Ueno writes:
>>> address@hidden (Ashish SHUKLA) writes:
>> 
>>>> #v+
>>>> /usr/local/bin/gpg2 --no-tty --status-fd 1 --yes --use-agent --command-fd 
>>>> 0 --armor --textmode --output /tmp/epg-output62957uOj --detach-sign -u 
>>>> 1F2F8410762E5E74
>>>> Warning: using insecure memory!
>>>> gpg: skipped "1F2F8410762E5E74": Unusable secret key
>>>> [GNUPG:] INV_SGNR 9 1F2F8410762E5E74
>>>> gpg: signing failed: Unusable secret key
>>>> #v-
>>>> 
>>>> The above mentioned key id belongs to my GPG key which I revoked, but it's
>>>> still present in my system to decrypt old content encrypted with it.
>> 
>>> It looks strange that mml2015 passes the expired key to gpg, since
>>> `mml2015-epg-sign' is expected to reject such a key through
>>> `mml2015-epg-find-usable-key'.
>> 
>>> Do you see 1F2F8410762E5E74 key with:
>> 
>>> (mml2015-epg-find-usable-key
>>> (epg-list-keys (epg-make-context 'OpenPGP) "1F2F8410762E5E74" t)
>>> 'sign)
>> 
>> Yes, I see that key. And, please note that it's not expired, it's revoked.

> Hello,

> mml2015-epg-find-usable-key should remove revoked keys.

> Can you test the following for me?

> #v+
> (defun test-mml2015-epg-find-usable-key (signers)
>   (let* ((context (epg-make-context))
>        (keys (epg-list-keys context signers))
>        (validities nil))
>     (while keys
>       (let ((pointer (epg-key-sub-key-list (car keys))))
>       (while pointer
>         (setq validities (cons 
>                           (cons (epg-sub-key-id (car pointer)) (symbol-name 
> (epg-sub-key-validity (car pointer))))
>                           validities))
>         (setq pointer (cdr pointer))))
>       (setq keys (cdr keys)))
>     validities))

> (test-mml2015-epg-find-usable-key '("1F2F8410762E5E74"))
> #v-

This is what I get:

(("F80D89FB7B05E99F" . "revoked") ("1F2F8410762E5E74" . "revoked"))

HTH
-- 
Ashish SHUKLA

“It's good to be wrong. Don't feel shamed. Wear past mistakes as a
badge of honor because growth is everything. To stop learning is to
decay.” ("apokalyptik", "in a conversation to abbe", 2010)

pgpN8DHYKD9BT.pgp
Description: PGP signature