From: teranisi <teranisi>
Date: Mon, 4 Aug 2003 02:47:33 +0000 (+0000)
Subject: * elmo-filter.el (elmo-folder-set-message-modified): Define.
X-Git-Tag: wl-2_11_6~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e5a79f85859100bc7ec39c5f7efb8a925e027191;p=elisp%2Fwanderlust.git

* elmo-filter.el (elmo-folder-set-message-modified): Define.

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index f5b3620..606819a 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2003-08-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-filter.el (elmo-folder-set-message-modified): Define.
+
+	* elmo-multi.el (elmo-folder-set-message-modified): Ditto.
+
 2003-08-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo.el (elmo-folder-set-message-modified): New method.
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 1241285..1afaae2 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -77,6 +77,13 @@
       (elmo-folder-set-msgdb-internal (elmo-filter-folder-target-internal
 				       folder) nil)))
 
+(luna-define-method elmo-folder-set-message-modified ((folder
+						       elmo-filter-folder)
+						      modified)
+  (if (elmo-filter-folder-require-msgdb-internal folder)
+      (elmo-folder-set-message-modified-internal
+       (elmo-filter-folder-target-internal folder) modified)))
+
 (luna-define-method elmo-folder-commit :around ((folder elmo-filter-folder))
   ;; Save target msgdb if it is used.
   (if (elmo-filter-folder-require-msgdb-internal folder)
diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 511a942..ded52a4 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -517,6 +517,12 @@
 	      (elmo-folder-list-flagged child flag in-msgdb)))))
     numbers))
 
+(luna-define-method elmo-folder-set-message-modified ((folder
+						       elmo-multi-folder)
+						      modified)
+  (dolist (child (elmo-multi-folder-children-internal folder))
+    (elmo-folder-set-message-modified child modified)))
+
 (luna-define-method elmo-folder-commit ((folder elmo-multi-folder))
   (dolist (child (elmo-multi-folder-children-internal folder))
     (elmo-folder-commit child)))