From cbac4a80e8504f9b154214de5c6243140b610943 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 19 Jul 2003 01:52:17 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 14 ++++++++++++++ elmo/elmo-pipe.el | 48 +++++++++++++++++++++++++++++++++++++++++------- 2 files changed, 55 insertions(+), 7 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4