From 1476b0d7a61ca5244eed81161c31d794fbd1e571 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 19 Jan 2022 19:44:29 +0100 Subject: [PATCH] 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 7611cef3e68..d465dbfd579 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." -- 2.39.5