From bd575bf1772c36d6fc57617af14e2bc98bed7cb6 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 1 May 2002 08:08:10 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-buffer-search-entity): Bind case-fold-search as nil. --- wl/ChangeLog | 3 +++ wl/wl-folder.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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]*" -- 1.7.10.4