From f2f6e1e4a2f6e7d4add61e43ba92732fe8c58dbf Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 22 Jan 2011 20:17:45 +0100 Subject: [PATCH] Display the encoded version of the bogus address if they differ. --- lisp/ChangeLog | 3 +++ lisp/message.el | 12 +++++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f31db7bbd..db5792bb5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-01-22 Lars Ingebrigtsen + * message.el (message-check-recipients): Display the encoded version of + the bogus address if they differ. + * gnus-draft.el (gnus-group-send-queue): Really refresh the queue group after sending. diff --git a/lisp/message.el b/lisp/message.el index f035cf4c1..d93c05c36 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4337,7 +4337,17 @@ This function could be useful in `message-setup-hook'." (and bog (not (y-or-n-p (format - "Address `%s' might be bogus. Continue? " bog))) + "Address `%s'%s might be bogus. Continue? " + bog + ;; If the encoded version of the email address + ;; is different from the unencoded version, + ;; then we likely have invisible characters or + ;; the like. Display the encoded version, + ;; too. + (let ((encoded (rfc2047-encode-string bog))) + (if (string= encoded bog) + "" + (format " (%s)" encoded)))))) (error "Bogus address")))))))) (custom-add-option 'message-setup-hook 'message-check-recipients) -- 2.25.1