* 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).
(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))))))