master 1476b0d7a6: Make article--check-suspicious-addresses more resilient

[Lars Ingebrigtsen]

branch: master
commit 1476b0d7a61ca5244eed81161c31d794fbd1e571
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):
    Don't bug out on mbox-less addresses.
---
 lisp/gnus/gnus-art.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 7611cef3e6..d465dbfd57 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2659,12 +2659,12 @@ 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))
-    (let ((address (car (mail-header-parse-address header))))
-      (when-let ((warning (textsec-check address 'email-address)))
-        (goto-char (point-min))
-        (while (search-forward address nil t)
-          (put-text-property (match-beginning 0) (match-end 0)
-                             'textsec-suspicious warning))))))
+    (when-let* ((address (car (mail-header-parse-address header)))
+                (warning (textsec-check address 'email-address)))
+      (goto-char (point-min))
+      (while (search-forward address nil t)
+        (put-text-property (match-beginning 0) (match-end 0)
+                           'textsec-suspicious warning)))))
 
 (defun article-decode-group-name ()
   "Decode group names in Newsgroups, Followup-To and Xref headers."