diff options
| author | David Edmondson | 2016-02-09 10:26:52 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-09 10:27:03 +1100 |
| commit | 22e239cb406cd5008d3942e66ebb153d8a2d20a4 (patch) | |
| tree | 4b178470191037e2f4aa32a25b4ed0d1504263df | |
| parent | e85055c9b1e81a2f953b248cbaa9061b99433a35 (diff) | |
| download | emacs-22e239cb406cd5008d3942e66ebb153d8a2d20a4.tar.gz emacs-22e239cb406cd5008d3942e66ebb153d8a2d20a4.zip | |
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." | |||
| 655 | (catch 'break | 655 | (catch 'break |
| 656 | (dolist (uid uids nil) | 656 | (dolist (uid uids nil) |
| 657 | (if (and (stringp (epg-user-id-string uid)) | 657 | (if (and (stringp (epg-user-id-string uid)) |
| 658 | (equal (car (mail-header-parse-address | 658 | (equal (downcase (car (mail-header-parse-address |
| 659 | (epg-user-id-string uid))) | 659 | (epg-user-id-string uid)))) |
| 660 | (car (mail-header-parse-address | 660 | (downcase (car (mail-header-parse-address |
| 661 | recipient))) | 661 | recipient)))) |
| 662 | (not (memq (epg-user-id-validity uid) | 662 | (not (memq (epg-user-id-validity uid) |
| 663 | '(revoked expired)))) | 663 | '(revoked expired)))) |
| 664 | (throw 'break t)))))) | 664 | (throw 'break t)))))) |