diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-23 01:06:15 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-23 01:06:15 +0200 |
| commit | ff7560b6ffba3d8602debd9a2a5c47509a67d4be (patch) | |
| tree | d092ff5d60425fbfdbfefc64aded44d72bf9efcb | |
| parent | a5eae3d15f8a490d88a86a71540e0ba3ec640eec (diff) | |
| download | emacs-ff7560b6ffba3d8602debd9a2a5c47509a67d4be.tar.gz | |
Make Message warn about invalid addresses
* lisp/gnus/message.el (message-check-recipients): Warn about
invalid email addresses (bug#32639).
| -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 |