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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e41fdb2..efe6ae1 100644 (file)
--- 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 (file)
--- 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