* elmo-vars.el (elmo-imap4-default-authenticate-type): Give

  choices for custom.
  (elmo-pop3-default-authenticate-type): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6fef336..dd148e9 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-22  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-vars.el (elmo-imap4-default-authenticate-type): Give
+       choices for custom.
+       (elmo-pop3-default-authenticate-type): Ditto.
+
 2002-01-22  Kenichi OKADA  <okada@opaopa.org>
 
        * elmo-imap4.el (elmo-folder-rename-internal): Change current

diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index 7d6d0e7..236cad4 100644 (file)
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -92,7 +92,10 @@ Each elements are regexp of folder name (This is obsolete).")
 
 (defcustom elmo-imap4-default-authenticate-type 'login
   "*Default Authentication type for IMAP4."
-  :type 'symbol
+  :type '(radio (const :tag "encoded password transmission (login)" login)
+               (const :tag "CRAM-MD5 authentication (cram-md5)" cram-md5)
+               (const :tag "DIGEST-MD5 authentication (digest-md5)" digest-md5)
+               (const :tag "plain password transmission (clear)" clear))
   :group 'elmo)
 
 (defcustom elmo-imap4-default-user (or (getenv "USER")
@@ -172,7 +175,8 @@ This is taken precedence over `elmo-network-stream-type-alist'.")
 
 (defcustom elmo-pop3-default-authenticate-type 'user
   "*Default Authentication type for POP3."
-  :type 'symbol
+  :type '(radio (const :tag "plain password transmission (user)" user)
+               (const :tag "APOP authentication (apop)" apop))
   :group 'elmo)
 
 (defcustom elmo-pop3-default-port 110