mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 01:05:39 -08:00
Code Issues Projects Releases Wiki Activity

Compare recipient and keys case-insensitively

Browse source 
* lisp/gnus/mml2015.el: (mml-secure-check-user-id): When comparing a
recipient address with that from a key, do so in a case insensitive
manner (bug#22603).
This commit is contained in:
David Edmondson 2016-02-09 10:26:52 +11:00 • committed by Lars Ingebrigtsen
parent e85055c9b1
commit 22e239cb40
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/mml-sec.el
View file

@ -655,10 +655,10 @@ The passphrase is read and cached."
(catch 'break
(dolist (uid uids nil)
(if (and (stringp (epg-user-id-string uid))
(equal (car (mail-header-parse-address
(epg-user-id-string uid)))
(car (mail-header-parse-address
recipient)))
(equal (downcase (car (mail-header-parse-address
(epg-user-id-string uid))))
(downcase (car (mail-header-parse-address
recipient))))
(not (memq (epg-user-id-validity uid)
'(revoked expired))))
(throw 'break t))))))