From: teranisi <teranisi>
Date: Wed, 1 May 2002 08:08:10 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-buffer-search-entity): Bind case-fold-search as nil.
X-Git-Tag: elmo-mark-root~175
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd575bf1772c36d6fc57617af14e2bc98bed7cb6;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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]*"