diff options
| author | Daniel Kahn Gillmor <dkg@fifthhorseman.net> | 2019-01-18 03:12:07 -0500 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-01-25 10:38:57 +0200 |
| commit | 90177d7f12d25e403abc6f1bdf242aed308a7bb8 (patch) | |
| tree | d776cfa28380634a576b66486c099222e1e7cffe | |
| parent | 68e55a0bfc15d6b39ae7aa5650f375ff6784246d (diff) | |
| download | emacs-90177d7f12d25e403abc6f1bdf242aed308a7bb8.tar.gz | |
Avoid elisp crash for OpenPGP User IDs with no e-mail address
* lisp/gnus/mml-sec.el (mml-secure-check-user-id): Verify that
there is an e-mail address in the current User ID before trying
to downcase it. (Bug#34121)
Copyright-paperwork-exempt: yes
| -rw-r--r-- | lisp/gnus/mml-sec.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index 8c485fec376..4fca4ce67b7 100644 --- a/lisp/gnus/mml-sec.el +++ b/lisp/gnus/mml-sec.el @@ -658,6 +658,8 @@ The passphrase is read and cached." (catch 'break (dolist (uid uids nil) (if (and (stringp (epg-user-id-string uid)) + (car (mail-header-parse-address + (epg-user-id-string uid))) (equal (downcase (car (mail-header-parse-address (epg-user-id-string uid)))) (downcase (car (mail-header-parse-address |