diff options
| author | Lars Ingebrigtsen | 2019-09-23 01:06:15 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-23 01:06:15 +0200 |
| commit | ff7560b6ffba3d8602debd9a2a5c47509a67d4be (patch) | |
| tree | d092ff5d60425fbfdbfefc64aded44d72bf9efcb | |
| parent | a5eae3d15f8a490d88a86a71540e0ba3ec640eec (diff) | |
| download | emacs-ff7560b6ffba3d8602debd9a2a5c47509a67d4be.tar.gz emacs-ff7560b6ffba3d8602debd9a2a5c47509a67d4be.zip | |
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'." | |||
| 4364 | (dolist (hdr '("To" "Cc" "Bcc")) | 4364 | (dolist (hdr '("To" "Cc" "Bcc")) |
| 4365 | (let ((addr (message-fetch-field hdr))) | 4365 | (let ((addr (message-fetch-field hdr))) |
| 4366 | (when (stringp addr) | 4366 | (when (stringp addr) |
| 4367 | ;; First check for syntactically invalid addresses. | ||
| 4368 | (dolist (address (mail-header-parse-addresses addr t)) | ||
| 4369 | (unless (mail-header-parse-addresses address) | ||
| 4370 | (unless (y-or-n-p | ||
| 4371 | (format "Email address %s looks invalid; send anyway?" | ||
| 4372 | address)) | ||
| 4373 | (user-error "Invalid address %s" address)))) | ||
| 4374 | ;; Then check for likely-bogus addresses. | ||
| 4367 | (dolist (bog (message-bogus-recipient-p addr)) | 4375 | (dolist (bog (message-bogus-recipient-p addr)) |
| 4368 | (and bog | 4376 | (and bog |
| 4369 | (not (y-or-n-p | 4377 | (not (y-or-n-p |