[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e4f59a6d1a: Make article--check-suspicious-addresses more resilie
From: |
Lars Ingebrigtsen |
Subject: |
master e4f59a6d1a: Make article--check-suspicious-addresses more resilient |
Date: |
Thu, 20 Jan 2022 00:43:09 -0500 (EST) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e4f59a6d1a: Make article--check-suspicious-addresses more resilient,
Lars Ingebrigtsen <=