* elmo-imap4.el (elmo-folder-list-subfolders): Case sensitive.

* elmo-nntp.el (elmo-folder-list-subfolders): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 1cf7587..cddac78 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2002-01-21  Kenichi OKADA  <okada@opaopa.org>
 
+       * elmo-imap4.el (elmo-folder-list-subfolders): Case sensitive.
+       * elmo-nntp.el (elmo-folder-list-subfolders): Ditto.
+
+2002-01-21  Kenichi OKADA  <okada@opaopa.org>
+
        * elmo-utils.el (elmo-read-search-condition-internal): REQUIRE-MATCH
        is nil on `completing-read'.
 

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 97af1ca..13cc289 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1928,6 +1928,7 @@ Return nil if no complete line has arrived."
                                     type)))))
     (if one-level
        (let ((re-delim (regexp-quote delim))
+             (case-fold-search nil)
              folder ret has-child-p)
          ;; Append delimiter
          (when (and root

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 2976e2f..fde9836 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -450,6 +450,7 @@ Don't cache if nil.")
 
 (defun elmo-nntp-folder-list-subfolders (folder one-level)
   (let ((session (elmo-nntp-get-session folder))
+       (case-fold-search nil)
        response ret-val top-ng append-serv use-list-active start)
     (with-temp-buffer
       (set-buffer-multibyte nil)