From: okada <okada>
Date: Tue, 27 Mar 2001 05:59:01 +0000 (+0000)
Subject: 	* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=92b7099b78ff0f7b58d0f41cfa5c8355ca0f4e9c;p=elisp%2Fwanderlust.git

	* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
	hierarchy is t.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d50dc28..e37648a 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-27  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
+	hierarchy is t.
+
 2001-02-27  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 2b28e18..f9ad360 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -568,7 +568,7 @@ BUFFER must be a single-byte buffer."
 			      (mapcar '(lambda (fld)
 					 (unless
 					     (string-match
-					      (concat "^" (regexp-quote folder))
+					      (concat "^" (regexp-quote folder) delim)
 					      fld)
 					   fld))
 				      result))))