procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make article--check-suspicious-addresses more resilient

Browse source 
* 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.)
This commit is contained in:
Lars Ingebrigtsen 2022-01-20 06:42:56 +01:00
parent a43b665605
commit e4f59a6d1a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/gnus-art.el
View file

@ -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)