From 0d7372de633bccf87e81e29225db2225866472d5 Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 20 Jan 2002 19:22:42 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-folder-list-subfolders): Case sensitive. * elmo-nntp.el (elmo-folder-list-subfolders): Ditto. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 1 + elmo/elmo-nntp.el | 1 + 3 files changed, 7 insertions(+) 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 + * elmo-imap4.el (elmo-folder-list-subfolders): Case sensitive. + * elmo-nntp.el (elmo-folder-list-subfolders): Ditto. + +2002-01-21 Kenichi OKADA + * 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) -- 1.7.10.4