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
This commit is contained in:
parent
68e55a0bfc
commit
90177d7f12
1 changed files with 2 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue