diff options
| -rw-r--r-- | lisp/gnus/message.el | 8 |
1 files changed, 8 insertions, 0 deletions
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 |