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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7ad433f..dcf0a17 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2002-01-17  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-vars.el (wl-pop-before-smtp-authenticate-type): Fix.
+
+2002-01-17  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-draft.el (wl-smtp-password-key): New function.
        (wl-smtp-extension-bind): Use `wl-smtp-password-key'
        (wl-draft-send-mail-with-smtp): Ditto.

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 1975ef5..b24d7cc 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -354,8 +354,8 @@ If nil, `elmo-pop3-default-stream-type' is used."
   "*Default Authentication type for POP-before-SMTP.
 If nil, `elmo-pop3-default-authenticate-type' is used."
   :type '(choice (const :tag "none" nil)
-                (const :tag "APOP" "apop")
-                (const :tag "POP3" "user"))
+                (const :tag "APOP" 'apop)
+                (const :tag "POP3" 'user))
   :group 'wl
   :group 'wl-setting)