From ca1e39e78c25619f867a0a738c0ba2192dfed435 Mon Sep 17 00:00:00 2001
From: hmurata <hmurata>
Date: Wed, 16 Feb 2005 16:49:44 +0000
Subject: [PATCH] * 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.
---
 elmo/ChangeLog      |    9 +++++++++
 elmo/elmo-filter.el |    3 ++-
 elmo/elmo-multi.el  |    3 ++-
 elmo/elmo-pipe.el   |    3 ++-
 4 files changed, 15 insertions(+), 3 deletions(-)

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
-- 
1.7.10.4