From: teranisi <teranisi>
Date: Sat, 19 Jul 2003 01:52:17 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-folder-msgdb-create): Don't define.
X-Git-Tag: elmo-mark-restart~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cbac4a80e8504f9b154214de5c6243140b610943;p=elisp%2Fwanderlust.git

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