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

[Alexey Shmalko]

Here is my key you can import. It has 5 uids, 2 of which are revoked.

Use `gpg --import` to import it, `gpg --list-keys -v DCEF7BCCEB3066C3`
to show all uids including revoked ones.

If you need to manually reproduce the key, use `gpg --edit-key` to start
editing. Add a couple of uids with `adduid`, select one uid with `uid <n>`,
`revuid` to revoke it, finally `save` to save the changes.

-----BEGIN PGP PUBLIC KEY BLOCK-----

mQENBFaYlwQBCADx85Ufgpt9YAoIC7MLsc9IbvRMtmQ0W0KVC1+OGH8hHC+8c7ba
Ty2QeAPQTfMXxv57XjiGfbthW86i6QC5UuDBFob1qR7uu8FH+IzDZhl/GmrEWTPK
YBeT9d1KcDKvdms5xMSKezo0OICZudjnqFPc+kkIiTpoecnBABoWm+lTmMTIQzd7
Vha8tCCfMiLiUmkxPRgQcXr8Rz+Vjr764k4R1eJC1UCe/9iKEI/j3ZPr4wVro174
zjC/lZmFgNwzZo6+HyiBaiuyQ7kROcTdLG+FyeYuWATEZED6Yp5Gp1p/rDaRtJfb
zc/AnlZPMEw80736R0OC50GLt/HrNuT6cSwNABEBAAG0JUFsZXhleSBTaG1hbGtv
IDxyYXNlbi5kdWJpQGdtYWlsLmNvbT6JATwEEwEIACYCGwMHCwkIBwMCAQYVCAIJ
CgsEFgIDAQIeAQIXgAUCVyspaQIZAQAKCRDc73vM6zBmw9KgCACzU5Zge5LbWqO0
A5cHfFO6caUCEsss/AI9/3oeMP58bI7WJBmKsfNdhWi17z0mamzbG7D1HLSkGJIp
mLR9+ot6ImV8/wJGWc3hEiX2RsxR/pJniJanG9oj2W4D3XGxXjrEcmjWBuiAvUcJ
cEaV3Dj39Y5P94tO+e4Op3BfmBCsPzJhNnwFIjvdTsRaFU8YGy068oZrJ0T6XtoD
7mk3/JZ+zVCmEucr9y5APzoGNYrM9a+p0AZMc4zv5nrgaGITjW/ccl4ePrs90kMg
MqWADyi5FHlNKb2PHz+JsDKLNPSu+9lXfFCFS1x7JIHf45TijrrBcvOnbMnHmRyY
0c2xo0bvtC1BbGV4ZXkgU2htYWxrbyA8YXNobWFsa29AY3liZXJ2aXNpb250ZWNo
LmNvbT6JATYEMAEIACAWIQTc88HY3rX1uGmxPaLc73vM6zBmwwUCW43FFQIdIAAK
CRDc73vM6zBmw/xwCADaPNrYjsxW3h+GRONTwBgagrugogNPj45xA0srev0y3fmV
ndojfS8EnxXZO2ji4BgM/pHF98j3zz8JNFl6p58n3X0repdkuH70S111ZcUtaRcw
Jkn5XeWVwcfoTutJHeiuS5hpYglboOxkO5xHcZiJiJ/UCoI9vayZ8WMUeARQis81
28gEZjYbRJgLu8yOxYOJacwFfdbjzpNAKwAdH0wT1T/jlCqq/SZ3w4m32UY+x/dh
0IRJIMVj/lBBGZ6hBPfggP8n8MauMzeYoku1H27Ffkddr5d1911He0JL+108gYKj
iluFgF+pxgeOm7ec1dqghxocYTJhv8Z4UDMdBzijtCNBbGV4ZXkgU2htYWxrbyA8
YXNobWFsa29Aa2FhaW90LmlvPokBNgQwAQgAIBYhBNzzwdjetfW4abE9otzve8zr
MGbDBQJbjcT/Ah0gAAoJENzve8zrMGbDi88IAItVgjmIjZL50J6UieyiCR/fxUHJ
PswRY0bdzPPm/TV1qxOZFQRIm83+4WXKKkAduarHgVED1hxntBSlkzDR2GZ0U8WU
9JFtrynd2mns6a0IwCD2PGIyhy7xIY28kqvEJX6YHsVODNDKQmhID2bPBt/9P+xk
Ix9gi0FPS9h+Jnxja3m09RiAnJvZJ+iUUwQ0mffRJ4Vaopsob5N/zOUVqzzuy2jW
/gmd5LJawU5PgFLrG6xZxESJEfyiOQPeheG1dybtyAQ83F5WY3Mte59+pjTPO2EB
SuGGOwZJyJGLikOHYWN1Fb2X1Fi8IorXvHjLu5MqMpDA3bwlLw4KsUzdXG20KEFs
ZXhleSBTaG1hbGtvIDxhc2htYWxrb0Bkb2N0b3JpZ2h0Lm9yZz6JAU4EEwEIADgW
IQTc88HY3rX1uGmxPaLc73vM6zBmwwUCW4/TaAIbAwULCQgHAgYVCgkICwIEFgID
AQIeAQIXgAAKCRDc73vM6zBmw6cVB/4yiY3MR432lL0Xfwez8F5/9XZSiabvxL1I
baJWpN5UxLq75do2i5HASHkPmO50h1FutAAD8fEJEAf1K9MwQJTydrdNKfiSO+5y
2PIhxfu6RmP/u6itoPAzNOHFftRMHVCN7UFmcpxHtvksxFx49HmOIft9Wa+qQoze
shN7BXGoJtw5ltN7d1oEsm2d1wamNTflxQE9bnqK3OE7Z+A5ONM1mAyY5i6G5zT6
iB7qU+T4LS34SBL+rjgCjLIIWys/e1QaXftXW7OsdwM9rMRO7cD36s1CHGmH+ecY
rXsmKrP7xLhiZGJmI0KVaWy/nJ5eKgb71c676H88FVizI2NC+c2StCBBbGV4ZXkg
U2htYWxrbyA8bWVAZWdvbGVzcy50ZWNoPokBTgQTAQgAOBYhBNzzwdjetfW4abE9
otzve8zrMGbDBQJdXRVqAhsDBQsJCAcCBhUKCQgLAgQWAgMBAh4BAheAAAoJENzv
e8zrMGbD1eAIANGM4qobeiDZupkuasui7Shov48cVRZt0qSflU1pLAAZl58960Yg
qSgAGv6IwjdIOhKGgOELOHEBezcl3Nk3HkpySz63nGrIIdlsSW5CAdsECRPMrgXg
IxbnY+b3U3TKXZv3q2piruvExnqxXt92RjP9ZKaC7Xg2mOXQqFxw4oXkqhU2X2b9
XpRTDaV55hqqv9tFoap7/w71C5Qh7tHtydv+Atj9db2LNjrGU9lBv4r+ZYB4q8Sj
jXiZvJGJx493Ca+44cgSTriCnO+voLSRaPMrrFVFrDaDx+a6jCLAU6SkZb01t71s
o6G9quay7X4zG9l1DbVla+q2fgE+rw98MC25AQ0EVpiXBAEIAMvbzQzMAC5sH+YF
JwdgsUzfQQ+o6jd9k18QjWYDawbI5TUSZ8EN2PaW8Fm32ixwH6cmzV7+kkxd6E3G
q830SS9C/kvCsPvXrYkzp8VCA8XRSfGqb8ip5bclV6KupsC8y+ZbdAzjpEN6sx7o
N6AuT73IlQTfs5G7wjV7Wk5rNIa36aB/fecqYg7CyhVYYMrInT50mJ3EBYnSOlJ5
uOm7QglKCTT4WgKrVNIyOLdyhJVr7IO5TYnIa1Pk3ga2ZtF6YsISYjqsl3jh0z0p
RLbp6fOieQEaOpCzEkImJxU7mwHw/VLxuZheOQ5ZYN8zRt9P9Ntfgv7Rl5Ozk85f
xbwlyPsAEQEAAYkBHwQYAQgACQUCVpiXBAIbDAAKCRDc73vM6zBmw5qzB/9FIuVC
jG2++OBDRg+9FksKxFWHE9OrZ/6ql62IU4qkEX6MUcoEXZtmdxZSyYRx0sIhRFKp
JiJk80Abry2Xzj/d9CitqpnbUnj+4ki1JtOqpNaSnDSXbiIhkwYCNRy2xObTXoUz
QIwonnwwYcrLATKKgjnfDl9Vhwnq4SaRNGFcV2YyiK8P9W664UVxp+rdvhfWJ2vs
+vTXOCdEsvLQRy1JSmD4l3qck7hsMkVFhdVGok6YYeRWj7Mmoo5VYp9lvAxnXooT
Ng5PRcHi8fhRaiL64I+XIxzfM51Td4lt1u++36J5t5MQyLXZhjj4BNeabWDX4rGL
s11+HgO3lxuISEDg
=IOjE
-----END PGP PUBLIC KEY BLOCK-----


Lars Ingebrigtsen <larsi@gnus.org> writes:

> 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