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

Make Message check for invalid recipients before sending

Browse source 
* lisp/gnus/message.el (message-check-recipients): Check for
suspicious addresses before sending (bug#51733).
This commit is contained in:
Lars Ingebrigtsen 2022-01-19 19:00:13 +01:00
parent 50ddfb2428
commit ec0abf37ee
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/message.el
View file

@ -4663,6 +4663,12 @@ This function could be useful in `message-setup-hook'."
(format "Email address %s looks invalid; send anyway?" (format "Email address %s looks invalid; send anyway?"
address)) address))
(user-error "Invalid address %s" address)))) (user-error "Invalid address %s" address))))
;; Then check for suspicious addresses.
(dolist (address (mail-header-parse-addresses addr t))
(when-let ((warning (textsec-check address 'email-address-header)))
(unless (y-or-n-p
(format "Suspicious address: %s; send anyway?" warning))
(user-error "Suspicious address %s" address))))
;; Then check for likely-bogus addresses. ;; Then check for likely-bogus addresses.
(dolist (bog (message-bogus-recipient-p addr)) (dolist (bog (message-bogus-recipient-p addr))
(and bog (and bog