master e4f59a6d1a: Make article--check-suspicious-addresses more resilient

[Lars Ingebrigtsen]

branch: master
commit e4f59a6d1a72cb70083760c187af28939cf18c06
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make article--check-suspicious-addresses more resilient
    
    * lisp/gnus/gnus-art.el (article--check-suspicious-addresses): Be
    more resilient to junk in headers.  (But all this should be rewritten
    eventually, because the entire process is way too convoluted.)
---
 lisp/gnus/gnus-art.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index d465dbfd57..8e46685e25 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2659,7 +2659,8 @@ If PROMPT (the prefix), prompt for a coding system to 
use."
 (defun article--check-suspicious-addresses (addresses)
   (setq addresses (replace-regexp-in-string "\\`[^:]+:[ \t\n]*" "" addresses))
   (dolist (header (mail-header-parse-addresses addresses t))
-    (when-let* ((address (car (mail-header-parse-address header)))
+    (when-let* ((address (car (ignore-errors
+                                (mail-header-parse-address header))))
                 (warning (textsec-check address 'email-address)))
       (goto-char (point-min))
       (while (search-forward address nil t)