* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)))