From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 23 Sep 2019 15:34:41 +0000 (+0200)
Subject: Don't bug out on invalid addresses in mml-secure-check-user-id
X-Git-Tag: emacs-27.0.90~1469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f45c14035ea194e44cf06bf5a416b731fd420a9;p=emacs.git

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

* lisp/gnus/mml-sec.el (mml-secure-check-user-id): Don't bug out
on invalid addresses (bug#33613).
---

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 716e4b778ec..51578a753da 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -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