From: teranisi <teranisi>
Date: Tue, 26 Nov 2002 11:51:03 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-list-subfolders): Fixed last change.
X-Git-Tag: wl-2_11_1~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b7bad772865b6dae37ad7a3ea69f49570ea4da8a;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-folder-list-subfolders): Fixed last change.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 91b106e..f95fcc8 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2002-11-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-folder-list-subfolders): Fixed last change.
+
 2002-11-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* utf7.el (toplevel): Check the ucs features dynamically.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index f56aab8..f0d1f7a 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1879,6 +1879,7 @@ Return nil if no complete line has arrived."
 		 elmo-imap4-default-hierarchy-delimiter))
 	 ;; Append delimiter when root with namespace.
 	 (root (if (and namespace-assoc
+			(match-end 1)
 			(string= (substring root (match-end 1))
 				 ""))
 		   (concat root delim)