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

	hierarchy is t.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7dd167d..51fefb8 100644 (file)
--- 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-03-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * elmo-version.el (elmo-appname): Fixed typo.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index f601cd3..122e362 100644 (file)
--- 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))))