bug#7797: 24.0.50; [EasyPG/Gnus] always pick up the first key from `gpg --list-key $SENDER`

[Daiki Ueno]

Daiki Ueno <ueno@unixuser.org> writes:

> Luca Capello <luca@pca.it> writes:
>
>> gpg: skipped "8D3867D89DDB992B": unusable secret key
>> gpg: signing failed: unusable secret key
>
> You may want to try the patch I posted last month:
> http://lists.gnu.org/archive/html/emacs-devel/2010-12/msg00624.html
>
> Although this patch is a workaround, I'm going to push it for the time
> being.

OK, I fixed this in a better way (r102771).

My test case is:

$ mv .gnupg .gnupg.bak
$ gpg --gen-key # create a key foo@example.com
$ gpg --gen-key # create a key bar@example.com
$ gpg --gen-key # create a key baz@example.com
$ gpg --edit-key foo@example.com # revoke foo@example.com
$ gpg --delete-secret-key bar@example.com

(mml2015-epg-find-usable-secret-key
  (epg-make-context 'OpenPGP) "foo@example.com" 'sign)
=> nil
(mml2015-epg-find-usable-secret-key
  (epg-make-context 'OpenPGP) "bar@example.com" 'sign)
=> nil
(mml2015-epg-find-usable-secret-key
  (epg-make-context 'OpenPGP) "baz@example.com" 'sign)
=> (epg-key . ...)

Regards,
-- 
Daiki Ueno