* 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 (file)
--- 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 (file)
--- 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)))))