gnus.el (gnus-valid-select-methods): Fix custom type

lisp/gnus/ChangeLog

@@ -1,3 +1,7 @@
+2012-07-31  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus.el (gnus-valid-select-methods): Fix custom type.
+
 2012-07-29  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* auth-source.el (auth-sources, auth-source-backend-parse)

lisp/gnus/gnus.el

@@ -1647,12 +1647,13 @@ this variable.  I think."
 					     (const :format "%v " mail)
 					     (const :format "%v " none)
 					     (const post-mail))
-			(checklist :inline t
+			(checklist :inline t :greedy t
 				   (const :format "%v " address)
 				   (const :format "%v " prompt-address)
 				   (const :format "%v " physical-address)
-				   (const :format "%v " virtual)
-				   (const respool))))
+				   (const virtual)
+				   (const :format "%v " respool)
+				   (const server-marks))))
   :version "24.1")
 
 (defun gnus-redefine-select-method-widget ()