* elmo-imap4.el (elmo-folder-list-subfolders): Check the return value

of elmo-string-matched-assoc to use match-data.
(Thanks to Mito <mito@mxa.nes.nec.co.jp>)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9e2d267..a4fc939 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2002-11-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-folder-list-subfolders): Check the return value
+       of elmo-string-matched-assoc to use match-data.
+       (Thanks to Mito <mito@mxa.nes.nec.co.jp>)
+
 2002-11-14  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-msgdb.el (elmo-msgdb-get-message-id-from-buffer): Added

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 6853766..81553d8 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1872,15 +1872,16 @@ Return nil if no complete line has arrived."
   (let* ((root (elmo-imap4-folder-mailbox-internal folder))
         (session (elmo-imap4-get-session folder))
         (prefix (elmo-folder-prefix-internal folder))
-        (delim (or
-                (cdr
+        (namespace-assoc
                  (elmo-string-matched-assoc
                   root
                   (with-current-buffer (elmo-network-session-buffer session)
                     elmo-imap4-server-namespace)))
+        (delim (or (cdr namespace-assoc)
                 elmo-imap4-default-hierarchy-delimiter))
         ;; Append delimiter when root with namespace.
-        (root (if (and (match-end 1)
+        (root (if (and namespace-assoc
+                       (match-end 1)
                        (string= (substring root (match-end 1))
                                 ""))
                   (concat root delim)