From ff7560b6ffba3d8602debd9a2a5c47509a67d4be Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 23 Sep 2019 01:06:15 +0200 Subject: Make Message warn about invalid addresses * lisp/gnus/message.el (message-check-recipients): Warn about invalid email addresses (bug#32639). --- lisp/gnus/message.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index ef9f8429d40..4ea8f7b02e6 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4364,6 +4364,14 @@ This function could be useful in `message-setup-hook'." (dolist (hdr '("To" "Cc" "Bcc")) (let ((addr (message-fetch-field hdr))) (when (stringp addr) + ;; First check for syntactically invalid addresses. + (dolist (address (mail-header-parse-addresses addr t)) + (unless (mail-header-parse-addresses address) + (unless (y-or-n-p + (format "Email address %s looks invalid; send anyway?" + address)) + (user-error "Invalid address %s" address)))) + ;; Then check for likely-bogus addresses. (dolist (bog (message-bogus-recipient-p addr)) (and bog (not (y-or-n-p -- cgit v1.2.1