* elmo-pipe.el (elmo-folder-msgdb-create): Don't define.

(elmo-folder-commit): Define.
(elmo-folder-synchronize): Ditto.
(elmo-folder-list-flagged): Ditto.
(elmo-folder-commit): Ditto.
(elmo-folder-length): Ditto.
(elmo-folder-count-flags): Ditto.
(elmo-message-mark): Ditto.
(elmo-message-field): Ditto.
(elmo-message-entity): Ditto.
(elmo-message-folder): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 796fb61..6994e42 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,17 @@
+2003-07-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-pipe.el (elmo-folder-msgdb-create): Don't define.
+       (elmo-folder-commit): Define.
+       (elmo-folder-synchronize): Ditto.
+       (elmo-folder-list-flagged): Ditto.
+       (elmo-folder-commit): Ditto.
+       (elmo-folder-length): Ditto.
+       (elmo-folder-count-flags): Ditto.
+       (elmo-message-mark): Ditto.
+       (elmo-message-field): Ditto.
+       (elmo-message-entity): Ditto.
+       (elmo-message-folder): Ditto.
+
 2003-07-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo.el (elmo-message-field): Define as a method.

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index feae2df..cc9a2d5 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -66,11 +66,6 @@
   (or (elmo-folder-contains-type (elmo-pipe-folder-src-internal folder) type)
       (elmo-folder-contains-type (elmo-pipe-folder-dst-internal folder) type)))
 
-(luna-define-method elmo-folder-msgdb-create ((folder elmo-pipe-folder)
-                                             numlist flag-table)
-  (elmo-folder-msgdb-create (elmo-pipe-folder-dst-internal folder)
-                           numlist flag-table))
-
 (luna-define-method elmo-folder-append-messages ((folder elmo-pipe-folder)
                                                 src-folder numbers
                                                 &optional same-number)
@@ -131,8 +126,6 @@
     (when (and copy msgs)
       (setq ignore-list (elmo-number-set-append-list ignore-list
                                                     msgs)))
-    ;; Don't save msgdb here.
-    ;; Because summary view of original folder is not updated yet.
     (elmo-folder-close-internal src)
     (run-hooks 'elmo-pipe-drained-hook)
     ignore-list))
@@ -329,6 +322,47 @@
                      (elmo-pipe-folder-dst-internal new-folder))
     (elmo-msgdb-rename-path folder new-folder)))
 
+(luna-define-method elmo-folder-commit ((folder elmo-pipe-folder))
+  (elmo-folder-commit
+   (elmo-pipe-folder-dst-internal folder)))
+
+(luna-define-method elmo-folder-synchronize ((folder elmo-pipe-folder)
+                                            &optional ignore-msgdb
+                                            no-check)
+  (elmo-folder-synchronize
+   (elmo-pipe-folder-dst-internal folder) ignore-msgdb no-check))
+
+(luna-define-method elmo-folder-list-flagged ((folder elmo-pipe-folder)
+                                             flag
+                                             &optional in-msgdb)
+  (elmo-folder-list-flagged
+   (elmo-pipe-folder-dst-internal folder) flag in-msgdb))
+
+(luna-define-method elmo-folder-commit ((folder elmo-pipe-folder))
+  (elmo-folder-commit (elmo-pipe-folder-dst-internal folder)))
+
+(luna-define-method elmo-folder-length ((folder elmo-pipe-folder))
+  (elmo-folder-length (elmo-pipe-folder-dst-internal folder)))
+
+(luna-define-method elmo-folder-count-flags ((folder elmo-pipe-folder))
+  (elmo-folder-count-flags (elmo-pipe-folder-dst-internal folder)))
+
+(luna-define-method elmo-message-mark ((folder elmo-pipe-folder) number)
+  (elmo-message-mark (elmo-pipe-folder-dst-internal folder) number))
+
+(luna-define-method elmo-message-field ((folder elmo-pipe-folder)
+                                       number field)
+  (elmo-message-field (elmo-pipe-folder-dst-internal folder)
+                     number
+                     field))
+
+(luna-define-method elmo-message-entity ((folder elmo-pipe-folder) key)
+  (elmo-message-entity (elmo-pipe-folder-dst-internal folder) key))
+
+(luna-define-method elmo-message-folder ((folder elmo-multi-folder)
+                                        number)
+  (elmo-pipe-folder-dst-internal folder))
+                                            
 (require 'product)
 (product-provide (provide 'elmo-pipe) (require 'elmo-version))