[gnus git] branch master updated: =2= Display the encoded version of the bogus address if they differ. ; Remove commented-out value.

       via  f2f6e1e4a2f6e7d4add61e43ba92732fe8c58dbf (commit)
       via  df07be45c75d44c831c0b50b44fd71f83aecea9a (commit)
      from  144f66e587b1bfd54fbfa9da7ad17d011bace13c (commit)


- Log -----------------------------------------------------------------
commit f2f6e1e4a2f6e7d4add61e43ba92732fe8c58dbf
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Jan 22 20:17:45 2011 +0100

    Display the encoded version of the bogus address if they differ.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f31db7b..db5792b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-01-22  Lars Ingebrigtsen  <[email protected]>
 
+	* 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 f035cf4..d93c05c 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)

commit df07be45c75d44c831c0b50b44fd71f83aecea9a
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Jan 22 20:09:08 2011 +0100

    Remove commented-out value.

diff --git a/lisp/message.el b/lisp/message.el
index 7f83f0a..f035cf4 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4172,7 +4172,6 @@ not have PROP."
     (nreverse regions)))
 
 (defcustom message-bogus-addresses
-  ;; '("noreply" "nospam" "invalid")
   '("noreply" "nospam" "invalid" "@@" "[^[:ascii:]].*@" "[ \t]")
   "List of regexps of potentially bogus mail addresses.
 See `message-check-recipients' how to setup checking.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    3 +++
 lisp/message.el |   13 +++++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project