[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ec0abf37ee: Make Message check for invalid recipients before send
From: |
Lars Ingebrigtsen |
Subject: |
master ec0abf37ee: Make Message check for invalid recipients before sending |
Date: |
Wed, 19 Jan 2022 13:00:49 -0500 (EST) |
branch: master
commit ec0abf37eeb4d8382f8035c78d3bb8c328f5dfa8
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make Message check for invalid recipients before sending
* lisp/gnus/message.el (message-check-recipients): Check for
suspicious addresses before sending (bug#51733).
---
lisp/gnus/message.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8f11e538c5..1f47e696c3 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ec0abf37ee: Make Message check for invalid recipients before sending,
Lars Ingebrigtsen <=