(elmo-folder-list-subfolders): Use root mailbox without

delimiter to obtain root mailbox itself.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index beea63d..8b35b64 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-folder-list-subfolders): Use root mailbox without
+       delimiter to obtain root mailbox itself.
+
 2005-01-25  Tetsurou Okazaki  <okazaki@be.to>
 
        * elmo-net.el (elmo-network-session-idle-timeout): Fix customization

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 07ea83c..cc1d40a 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1966,6 +1966,7 @@ Return nil if no complete line has arrived."
         (delim (or (cdr namespace-assoc)
                 elmo-imap4-default-hierarchy-delimiter))
         ;; Append delimiter when root with namespace.
+        (root-nodelim root)
         (root (if (and namespace-assoc
                        (match-end 1)
                        (string= (substring root (match-end 1))
@@ -1984,7 +1985,8 @@ Return nil if no complete line has arrived."
                    (elmo-imap4-response-get-selectable-mailbox-list
                     (elmo-imap4-send-command-wait
                      session
-                     (list "list \"\" " (elmo-imap4-mailbox root)))))))
+                     (list "list \"\" " (elmo-imap4-mailbox
+                                         root-nodelim)))))))
     (when (or (not (string= (elmo-net-folder-user-internal folder)
                            elmo-imap4-default-user))
              (not (eq (elmo-net-folder-auth-internal folder)