From e4f59a6d1a72cb70083760c187af28939cf18c06 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 20 Jan 2022 06:42:56 +0100 Subject: [PATCH] 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 d465dbfd579..8e46685e25f 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) -- 2.39.5