projects / elisp / wanderlust.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ca9a32f)
* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
authorokada <okada>
Tue, 27 Mar 2001 05:59:01 +0000 (05:59 +0000)
committerokada <okada>
Tue, 27 Mar 2001 05:59:01 +0000 (05:59 +0000)
hierarchy is t.

elmo/ChangeLog patch | blob | history
elmo/elmo-imap4.el patch | blob | history

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d50dc28..e37648a 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-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 (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))))