diff options
| -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)))))) |