mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Don't bug out on invalid addresses in mml-secure-check-user-id

Browse Source 
* lisp/gnus/mml-sec.el (mml-secure-check-user-id): Don't bug out
on invalid addresses (bug#33613).
This commit is contained in:
Lars Ingebrigtsen 2019-09-23 17:34:41 +02:00
parent bdc222b268
commit 3f45c14035
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/mml-sec.el
View File

@ -660,8 +660,9 @@ 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)))
(car (ignore-errors
(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