[Emacs-diffs] emacs-25 22e239c: Compare recipient and keys case-insensitively

[Lars Ingebrigtsen]

branch: emacs-25
commit 22e239cb406cd5008d3942e66ebb153d8a2d20a4
Author: David Edmondson <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Compare recipient and keys case-insensitively
    
    * 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).
---
 lisp/gnus/mml-sec.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 48e6384..3ac3da0 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))))))