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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 85a66fc..0902de7 100644 (file)
--- 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 a92b13f..28bed4d 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1912,6 +1912,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)