From: teranisi <teranisi>
Date: Tue, 5 Mar 2002 04:12:04 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mark-as-important): Refetch if cache is
X-Git-Tag: wl-2_9_8~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cde56f958de44ed555fe43730d41335717ee7b97;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mark-as-important): Refetch if cache is
not entire.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c65e242..693f774 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-mark-as-important): Refetch if cache is
+	not entire.
+
 2002-03-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-mode-map): Bind wl-summary-save-status
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index e849552..6211213 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4193,7 +4193,7 @@ If ARG, exit virtual folder."
 		    (elmo-msgdb-mark-set mark-alist
 					 number
 					 wl-summary-important-mark))
-	      (if (elmo-file-cache-exists-p message-id)
+	      (if (eq (elmo-file-cache-exists-p message-id) 'entire)
 		  (elmo-folder-mark-as-read folder (list number))
 		;; Force cache message.
 		(elmo-message-encache folder number 'read))