[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ff7560b: Make Message warn about invalid addresses
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master ff7560b: Make Message warn about invalid addresses |
Date: |
Sun, 22 Sep 2019 19:06:23 -0400 (EDT) |
branch: master
commit ff7560b6ffba3d8602debd9a2a5c47509a67d4be
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 ef9f842..4ea8f7b 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ff7560b: Make Message warn about invalid addresses,
Lars Ingebrigtsen <=