From 66d37a006e891928633ca9bf156c48466ce96c25 Mon Sep 17 00:00:00 2001
From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Mon, 5 Sep 2005 16:16:39 +0000
Subject: [PATCH] * message.el (message-tab-body-function): Fixed mismatched
 custom type.

* gnus.el (gnus-group-change-level-function): Ditto.

* gnus-msg.el (gnus-outgoing-message-group):  Ditto.

* gnus-art.el (gnus-signature-limit)
(gnus-article-mime-part-function): Ditto.
---
 lisp/ChangeLog   | 12 ++++++++++++
 lisp/gnus-art.el |  6 ++++--
 lisp/gnus-msg.el |  6 ++++--
 lisp/gnus.el     |  3 ++-
 lisp/message.el  |  3 ++-
 5 files changed, 24 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aecf683ed..d17d921ab 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-09-05  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* message.el (message-tab-body-function): Fixed mismatched custom
+	type.
+
+	* gnus.el (gnus-group-change-level-function): Ditto.
+
+	* gnus-msg.el (gnus-outgoing-message-group):  Ditto.
+
+	* gnus-art.el (gnus-signature-limit)
+	(gnus-article-mime-part-function): Ditto.
+
 2005-09-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mml.el (mml-mode): Silence the byte compiler.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1640ae965..beb34069c 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -241,7 +241,8 @@ no signature in the buffer.  If it is a string, it will be used as a
 regexp.  If it matches, the text in question is not a signature.
 
 This can also be a list of the above values."
-  :type '(choice (integer :value 200)
+  :type '(choice (const nil)
+		 (integer :value 200)
 		 (number :value 4.0)
 		 (function :value fun)
 		 (regexp :value ".*"))
@@ -883,7 +884,8 @@ see http://www.cs.indiana.edu/picons/ftp/index.html"
 This is meant for people who want to do something automatic based
 on parts -- for instance, adding Vcard info to a database."
   :group 'gnus-article-mime
-  :type 'function)
+  :type '(choice (const nil)
+		 function))
 
 (defcustom gnus-mime-multipart-functions nil
   "An alist of MIME types to functions to display them."
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9e151596c..43ce9795a 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -67,8 +67,10 @@ message in, you can set this variable to a function that checks the
 current newsgroup name and then returns a suitable group name (or list
 of names)."
   :group 'gnus-message
-  :type '(choice (string :tag "Group")
-		 (function)))
+  :type '(choice (const nil)
+		 (function)
+		 (string :tag "Group")
+		 (repeat :tag "List of groups" (string :tag "Group"))))
 
 (defcustom gnus-mailing-list-groups nil
   "*If non-nil a regexp matching groups that are really mailing lists.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index a55abcc66..44c86b341 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2387,7 +2387,8 @@ following hook:
   "Function run when a group level is changed.
 It is called with three parameters -- GROUP, LEVEL and OLDLEVEL."
   :group 'gnus-group-levels
-  :type 'function)
+  :type '(choice (const nil)
+		 function))
 
 ;;; Face thingies.
 
diff --git a/lisp/message.el b/lisp/message.el
index f2c8811a6..9eaf7d597 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6723,7 +6723,8 @@ If nil, the function bound in `text-mode-map' or `global-map' is executed."
   :version "22.1"
   :group 'message
   :link '(custom-manual "(message)Various Commands")
-  :type 'function)
+  :type '(choice (const nil)
+		 function))
 
 (defun message-tab ()
   "Complete names according to `message-completion-alist'.
-- 
2.34.1