From: yoichi <yoichi>
Date: Thu, 23 Dec 2004 14:56:39 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-buffer-search-entity): Check real name.
X-Git-Tag: wl-2_14-root~109
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a7d78ac228692da0d1069cb4f53b065ccb4e66e3;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-buffer-search-entity): Check real name.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c03ad3e..20e074c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-23  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-folder.el (wl-folder-buffer-search-entity): Check real name.
+
 2004-12-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-vars.el (wl-smtp-authenticate-realm): New user option.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index d55bf97..3e9467b 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -248,11 +248,17 @@
 
 (defun wl-folder-buffer-search-entity (folder &optional searchname)
   (let ((search (or searchname (wl-folder-get-petname folder)))
-	case-fold-search)
-    (re-search-forward
-     (concat
-      "^[ \t]*"
-      (regexp-quote search) ":[-0-9\\*-]+/[0-9\\*-]+/[0-9\\*-]+") nil t)))
+	case-fold-search
+	result)
+    (catch 'found
+      (while (setq result
+		   (re-search-forward
+		    (concat
+		     "^[ \t]*"
+		     (regexp-quote search) ":[-0-9\\*-]+/[0-9\\*-]+/[0-9\\*-]+")
+		    nil t))
+	(when (string= (wl-folder-get-entity-from-buffer) folder)
+	  (throw 'found result))))))
 
 (defsubst wl-folder-get-folder-name-by-id (entity-id &optional hashtb)
   (and (numberp entity-id)