diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-19 19:00:13 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-19 19:00:13 +0100 |
commit | ec0abf37eeb4d8382f8035c78d3bb8c328f5dfa8 (patch) | |
tree | 69a616bc9b826171d08d66901332aa5cb675b81b /lisp/gnus/message.el | |
parent | 50ddfb2428496d7f5b8f37d3345fb2fdb88bb6ea (diff) | |
download | emacs-ec0abf37eeb4d8382f8035c78d3bb8c328f5dfa8.tar.gz |
Make Message check for invalid recipients before sending
* lisp/gnus/message.el (message-check-recipients): Check for
suspicious addresses before sending (bug#51733).
Diffstat (limited to 'lisp/gnus/message.el')
-rw-r--r-- | lisp/gnus/message.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 8f11e538c5a..1f47e696c30 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4663,6 +4663,12 @@ This function could be useful in `message-setup-hook'." (format "Email address %s looks invalid; send anyway?" 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. (dolist (bog (message-bogus-recipient-p addr)) (and bog |