From: hmurata <hmurata>
Date: Wed, 16 Feb 2005 16:49:44 +0000 (+0000)
Subject: * elmo-filter.el (elmo-message-set-cached): Call
X-Git-Tag: wl-2_14-root~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ca1e39e78c25619f867a0a738c0ba2192dfed435;p=elisp%2Fwanderlust.git

* elmo-filter.el (elmo-message-set-cached): Call
`elmo-folder-notify-event' with event `cache-changed'.

* elmo-multi.el (elmo-message-set-cached): Ditto.

* elmo-pipe.el (elmo-message-set-cached): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index bd97e90..572cf35 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,12 @@
+2005-02-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-filter.el (elmo-message-set-cached): Call
+	`elmo-folder-notify-event' with event `cache-changed'.
+
+	* elmo-multi.el (elmo-message-set-cached): Ditto.
+
+	* elmo-pipe.el (elmo-message-set-cached): Ditto.
+
 2005-02-16  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo.el (elmo-folder-encache): Abolish.
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 7eb00be..efaa0b4 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -345,7 +345,8 @@
 (luna-define-method elmo-message-set-cached ((folder elmo-filter-folder)
 					     number cached)
   (elmo-message-set-cached
-   (elmo-filter-folder-target-internal folder) number cached))
+   (elmo-filter-folder-target-internal folder) number cached)
+  (elmo-folder-notify-event folder 'cache-changed number))
 
 (luna-define-method elmo-message-number ((folder elmo-filter-folder)
 					 message-id)
diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index b4700b3..2a13b79 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -144,7 +144,8 @@
 (luna-define-method elmo-message-set-cached ((folder elmo-multi-folder)
 					     number cached)
   (let ((pair (elmo-multi-real-folder-number folder number)))
-    (elmo-message-set-cached (car pair) (cdr pair) cached)))
+    (elmo-message-set-cached (car pair) (cdr pair) cached))
+  (elmo-folder-notify-event folder 'cache-changed number))
 
 (luna-define-method elmo-find-fetch-strategy ((folder elmo-multi-folder)
 					      number
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index a62eaf6..ca07964 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -363,7 +363,8 @@
 (luna-define-method elmo-message-set-cached ((folder elmo-pipe-folder)
 					     number cached)
   (elmo-message-set-cached (elmo-pipe-folder-dst-internal folder)
-			   number cached))
+			   number cached)
+  (elmo-folder-notify-event folder 'cache-changed number))
 
 (luna-define-method elmo-find-fetch-strategy ((folder elmo-pipe-folder)
 					      number