bug#46138: 28.0.50; epg--filter-revoked-keys filters out valid keys

[Lars Ingebrigtsen]

Alexey Shmalko <rasen.dubi@gmail.com> writes:

> I have a gpg key with multiple uids, some of which are revoked:
>
> [ultimate] (1). Alexey Shmalko <rasen.dubi@gmail.com>
> [ revoked] (2)  Alexey Shmalko <ashmalko@cybervisiontech.com>
> [ revoked] (3)  Alexey Shmalko <ashmalko@kaaiot.io>
>
> Now the issue is that `epg--filter-revoked-keys' finds one revoked uid
> and discards the whole key:
>
> (defun epg--filter-revoked-keys (keys)
>   (seq-remove (lambda (key)
>                 (seq-find (lambda (user)
>                             (eq (epg-user-id-validity user) 'revoked))
>                           (epg-key-user-id-list key)))
>               keys))

Yup.  Do you have a recipe for setting up a gpg key with multiple
revoked uids so that I can test this here?

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no