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

* elmo-vars.el (elmo-imap4-default-authenticate-type): Give
other choices.
(elmo-pop3-default-authenticate-type): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index dd148e9..393f37a 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-22  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-vars.el (elmo-imap4-default-authenticate-type): Give
+	other choices.
+	(elmo-pop3-default-authenticate-type): Ditto.
+
 2002-01-22  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* elmo-vars.el (elmo-imap4-default-authenticate-type): Give
diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index 236cad4..d1f34e2 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -95,7 +95,9 @@ Each elements are regexp of folder name (This is obsolete).")
   :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))
+		(const :tag "plain password transmission (clear)" clear)
+		(const :tag "NTLM authentication (ntlm)" ntlm)
+		(function :tag "Other"))
   :group 'elmo)
 
 (defcustom elmo-imap4-default-user (or (getenv "USER")
@@ -176,7 +178,11 @@ This is taken precedence over `elmo-network-stream-type-alist'.")
 (defcustom elmo-pop3-default-authenticate-type 'user
   "*Default Authentication type for POP3."
   :type '(radio (const :tag "plain password transmission (user)" user)
-		(const :tag "APOP authentication (apop)" apop))
+		(const :tag "APOP authentication (apop)" apop)
+		(const :tag "CRAM-MD5 authentication (cram-md5)" cram-md5)
+		(const :tag "DIGEST-MD5 authentication (digest-md5)" digest-md5)
+		(const :tag "NTLM authentication (ntlm)" ntlm)
+		(function :tag "Other"))
   :group 'elmo)
 
 (defcustom elmo-pop3-default-port 110