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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c0c3911cfd5d679bc5b5faba8abde0ddfab10dc..7951188bbaf82210ba56b1614929a07f966df100 100644 (file)
--- a/lisp/ChangeLog
+++ b/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.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4fcf078e9d6a7555e29ad90f46b835817d6de1cc..e8fa026fc607ffe92716c6e3cf4732a2ab5f9723 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/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

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 409b1cc62552781e00579ad87c132f533ca74bd9..266ee0fe7cb3135ccd8f19c01d77bc41b8b5c67f 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/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)

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 4d9320b995f5236b3b09caa7c9fe93383b0bda37..f8c2b24cc9f860d6608ba6573575d7c6fe790576 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/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)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 7eda2554e06fe9ba9041a1492c36a7ca05aa58fb..bc4542923607f41ce9c4f7ec35ba2e95af8909ba 100644 (file)
--- a/lisp/net/shr.el
+++ b/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."