From: teranisi <teranisi>
Date: Wed, 26 Jan 2005 06:32:55 +0000 (+0000)
Subject: (elmo-folder-list-subfolders): Use root mailbox without
X-Git-Tag: wl-2_14-root~72
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=07620b4f46d743c4ca8c87ecafaf079e28f8953a;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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)