Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

(message-bogus-address-regexp): Fix and improve custom type.
(message-setup-hook): Add message-check-recipients as custom option.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1857 gnus/lisp/ChangeLog:7.1858
--- ChangeLog:7.1857	Thu May 15 22:09:07 2008
+++ ChangeLog	Fri May 16 23:26:45 2008
@@ -1,3 +1,9 @@
+2008-05-16  Reiner Steib  <[email protected]>
+
+	* message.el (message-bogus-address-regexp): Fix and improve custom
+	type.
+	(message-setup-hook): Add message-check-recipients as custom option.
+
 2008-05-15  Reiner Steib  <[email protected]>
 
 	* message.el (message-cite-function): Remove bogus autoload which crept
Index: message.el
diff -u gnus/lisp/message.el:7.259 gnus/lisp/message.el:7.260
--- message.el:7.259	Thu May 15 22:09:07 2008
+++ message.el	Fri May 16 23:26:45 2008
@@ -4066,7 +4066,15 @@
   "Regexp of potentially bogus mail addresses."
   :version "23.1" ;; No Gnus
   :group 'message-headers
-  :type 'regexp)
+  :type '(choice (const :tag "None" nil)
+		 (repeat :value-to-internal (lambda (widget value)
+					      (custom-split-regexp-maybe value))
+			 :match (lambda (widget value)
+				  (or (stringp value)
+				      (widget-editable-list-match widget value)))
+			 regexp)
+		 (const "noreply\\|nospam\\|invalid")
+		 regexp))
 
 (defun message-fix-before-sending ()
   "Do various things to make the message nice before sending it."
@@ -4152,7 +4160,7 @@
 	  (forward-char)
 	  (skip-chars-forward mm-7bit-chars)))))
   (message-check 'bogus-recipient
-    ;; Warn before composing or sending a mail to an invalid address.
+    ;; Warn before sending a mail to an invalid address.
     (message-check-recipients)))
 
 (defun message-bogus-recipient-p (recipients)
@@ -4198,6 +4206,8 @@
 		       (format
 			"Address `%s' might be bogus.  Continue? " bog)))
 		 (error "Bogus address."))))))))
+
+(custom-add-option 'message-setup-hook 'message-check-recipients)
 
 (defun message-add-action (action &rest types)
   "Add ACTION to be performed when doing an exit of type TYPES."