* wl-folder.el (wl-folder-buffer-search-entity): Bind case-fold-search as nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 517919d..8b2d192 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2002-05-01  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-folder.el (wl-folder-buffer-search-entity): Bind case-fold-search
+       as nil.
+
        * wl-thread.el (wl-thread-open-all-unread): Use 
        elmo-folder-list-messages-mark-match.
        (wl-thread-insert-message): Removed argument `mark-alist'.

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 9101f64..fa56b15 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -249,7 +249,8 @@
     (regexp-quote group) ":[-0-9-]+/[0-9-]+/[0-9-]+") nil t))
 
 (defun wl-folder-buffer-search-entity (folder &optional searchname)
-  (let ((search (or searchname (wl-folder-get-petname folder))))
+  (let ((search (or searchname (wl-folder-get-petname folder)))
+       case-fold-search)
     (re-search-forward
      (concat
       "^[ \t]*"