Fix some custom types

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

* gnus/nnimap.el (nnimap-request-articles-find-limit): Fix type, version.

* net/shr.el (shr-table-horizontal-line): Fix custom type.

lisp/ChangeLog

@@ -1,3 +1,7 @@
+2013-08-13  Glenn Morris  <rgm@gnu.org>
+
+	* net/shr.el (shr-table-horizontal-line): Fix custom type.
+
 2013-08-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/timer.el (timer--time-setter): New function.

lisp/gnus/ChangeLog

@@ -1,3 +1,9 @@
+2013-08-13  Glenn Morris  <rgm@gnu.org>
+
+	* gnus.el (gnus-valid-select-methods): Fix type.
+
+	* nnimap.el (nnimap-request-articles-find-limit): Fix type, version.
+
 2013-08-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mm-decode.el (mm-display-external): Run a timer for the temp files

lisp/gnus/gnus.el

@@ -1649,6 +1649,7 @@ this variable.  I think."
 					     (const post-mail))
 			(checklist :inline t :greedy t
 				   (const :format "%v " address)
+				   (const global)
 				   (const :format "%v " prompt-address)
 				   (const :format "%v " physical-address)
 				   (const virtual)

lisp/gnus/nnimap.el

@@ -130,8 +130,8 @@ textual parts.")
 
 (defcustom nnimap-request-articles-find-limit nil
   "Limit the number of articles to look for after moving an article."
-  :type 'integer
-  :version "24.3"
+  :type '(choice (const nil) integer)
+  :version "24.4"
   :group 'nnimap)
 
 (defvar nnimap-process nil)

lisp/net/shr.el

@@ -59,7 +59,7 @@ fit these criteria."
   "Character used to draw horizontal table lines.
 If nil, don't draw horizontal table lines."
   :group 'shr
-  :type 'character)
+  :type '(choice (const nil) character))
 
 (defcustom shr-table-vertical-line ?\s
   "Character used to draw vertical table lines."