* elmo.el (elmo-generic-folder-append-messages): Set flag as nil

[elisp/wanderlust.git] / elmo / elmo-pipe.el

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index eb48a3e..feae2df 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -67,9 +67,9 @@
       (elmo-folder-contains-type (elmo-pipe-folder-dst-internal folder) type)))
 
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-pipe-folder)
-                                             numlist seen-list)
+                                             numlist flag-table)
   (elmo-folder-msgdb-create (elmo-pipe-folder-dst-internal folder)
-                           numlist seen-list))
+                           numlist flag-table))
 
 (luna-define-method elmo-folder-append-messages ((folder elmo-pipe-folder)
                                                 src-folder numbers
@@ -79,9 +79,9 @@
                               same-number))
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-pipe-folder)
-                                              unread &optional number)
+                                              &optional flag number)
   (elmo-folder-append-buffer (elmo-pipe-folder-dst-internal folder)
-                            unread number))
+                            flag number))
 
 (luna-define-method elmo-message-fetch ((folder elmo-pipe-folder)
                                        number strategy
@@ -89,6 +89,11 @@
   (elmo-message-fetch (elmo-pipe-folder-dst-internal folder)
                      number strategy section outbuf unseen))
 
+(luna-define-method elmo-folder-clear :after ((folder elmo-pipe-folder)
+                                             &optional keep-killed)
+  (unless keep-killed
+    (elmo-pipe-folder-copied-list-save folder nil)))
+
 (luna-define-method elmo-folder-delete-messages ((folder elmo-pipe-folder)
                                                 numbers)
   (elmo-folder-delete-messages (elmo-pipe-folder-dst-internal folder)