From: okada <okada>
Date: Sun, 20 Jan 2002 19:22:42 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-list-subfolders): Case sensitive.
X-Git-Tag: wl-2_9_6~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0d7372de633bccf87e81e29225db2225866472d5;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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)