* wl-vars.el (wl-pop-before-smtp-stream-type): Fix range.

(wl-nntp-posting-stream-type): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 52cbc37..c133820 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-02  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-vars.el (wl-pop-before-smtp-stream-type): Fix range.
+       (wl-nntp-posting-stream-type): Ditto.
+
 2005-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-demo.el (wl-demo-copyright-notice): Add 2005.

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 6a7d702..08e5a5d 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -631,7 +631,8 @@ If nil, `elmo-pop3-default-port' is used."
 (defcustom wl-pop-before-smtp-stream-type nil
   "*Stream type for POP-before-SMTP.
 If nil, `elmo-pop3-default-stream-type' is used."
-  :type 'boolean
+  :type '(choice (const :tag "Use `elmo-pop3-default-stream-type'" nil)
+                symbol)
   :group 'wl)
 
 (defcustom wl-pop-before-smtp-authenticate-type nil
@@ -668,7 +669,8 @@ If nil, `elmo-nntp-default-port' is used."
 (defcustom wl-nntp-posting-stream-type nil
   "*Stream type for posting Netnews.
 If nil, `elmo-nntp-default-stream-type' is used."
-  :type 'boolean
+  :type '(choice (const :tag "Use `elmo-nntp-default-stream-type'" nil)
+                symbol)
   :group 'wl)
 (defcustom wl-nntp-posting-function 'elmo-nntp-post
   "A function to post news.