From: okada <okada>
Date: Mon, 6 Nov 2000 06:55:52 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-list-folders): Append authenticate-type.
X-Git-Tag: wl-2_4-root~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4986bcce546dd00b3bf485f9021db90eae1f9857;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-list-folders): Append authenticate-type.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e41fdb2..efe6ae1 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2000-11-06  Kenichi OKADA  <okada@opaopa.org>
 
+	* elmo-imap4.el (elmo-imap4-list-folders): Append authenticate-type.
+
+2000-11-06  Kenichi OKADA  <okada@opaopa.org>
+
 	* elmo-imap4.el (elmo-imap4-list-folders): When hierarchy is
 	non-nil, make hierarchy.
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index f3d1327..450c68b 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -551,6 +551,10 @@ BUFFER must be a single-byte buffer."
     (unless (string= (elmo-imap4-spec-username spec)
 		     elmo-default-imap4-user)
       (setq append-serv (concat ":" (elmo-imap4-spec-username spec))))
+    (unless (eq (elmo-imap4-spec-auth spec)
+		     elmo-default-imap4-authenticate-type)
+      (setq append-serv 
+	    (concat append-serv "/" (symbol-name (elmo-imap4-spec-auth spec)))))
     (unless (string= (elmo-imap4-spec-hostname spec)
 		     elmo-default-imap4-server)
       (setq append-serv (concat append-serv "@" (elmo-imap4-spec-hostname