diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index 48e6384497e..3ac3da0127d 100644 --- a/lisp/gnus/mml-sec.el +++ b/lisp/gnus/mml-sec.el @@ -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))))))