From: yoichi <yoichi>
Date: Sun, 13 Mar 2005 15:41:21 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-set-persistent-mark): If summary
X-Git-Tag: wl-2_15_3~118
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0ea9e8d0c1c02ec7b6510a2b5f88a52fda04d28e;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-set-persistent-mark): If summary
buffer is not for given folder, don't use it.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d046320..02c0be1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-13  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-folder.el (wl-folder-set-persistent-mark): If summary
+	buffer is not for given folder, don't use it.
+
 2005-03-13  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* Version number is increased to 2.15.0.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 835715d..7225042 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -513,14 +513,14 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'."
 
 (defun wl-folder-set-persistent-mark (folder number flag)
   "Set a persistent mark which corresponds to the specified flag on message."
-  (let ((buffer (wl-summary-get-buffer folder))
-	elmo-folder)
-    (if buffer
+  (let ((buffer (wl-summary-get-buffer folder)))
+    (if (and buffer
+	     (with-current-buffer buffer
+	       (string= wl-summary-buffer-folder-name folder)))
 	(with-current-buffer buffer
 	  (wl-summary-set-persistent-mark flag number))
       ;; Parent buffer does not exist.
-      (when (setq elmo-folder (and folder
-				   (wl-folder-get-elmo-folder folder)))
+      (let ((elmo-folder (wl-folder-get-elmo-folder folder)))
 	(elmo-folder-open elmo-folder 'load-msgdb)
 	(elmo-folder-set-flag elmo-folder (list wl-draft-parent-number) flag)
 	(elmo-folder-close elmo-folder)))))