From: yoichi <yoichi>
Date: Tue, 22 Jan 2002 10:26:45 +0000 (+0000)
Subject: * elmo-vars.el (elmo-imap4-default-authenticate-type): Give
X-Git-Tag: wl-2_9_6~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b199652fcd070f0f48742ff56832aaf041c52691;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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