From 0ea9e8d0c1c02ec7b6510a2b5f88a52fda04d28e Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 13 Mar 2005 15:41:21 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-set-persistent-mark): If summary buffer is not for given folder, don't use it. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) 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 + + * 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 * 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))))) -- 1.7.10.4