diff options
| author | David Edmondson <dme@dme.org> | 2016-02-09 10:26:52 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-09 10:27:03 +1100 |
| commit | 22e239cb406cd5008d3942e66ebb153d8a2d20a4 (patch) | |
| tree | 4b178470191037e2f4aa32a25b4ed0d1504263df | |
| parent | e85055c9b1e81a2f953b248cbaa9061b99433a35 (diff) | |
| download | emacs-22e239cb406cd5008d3942e66ebb153d8a2d20a4.tar.gz | |
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).
| -rw-r--r-- | 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 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)))))) |