Merged trunk to elmo-imap4-compliance

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

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 704175b..68bb479 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -145,12 +145,9 @@
     (message "Checking %s..." (elmo-folder-name-internal src))
     (elmo-folder-open src)
     (unwind-protect
-       (let* ((msgs (elmo-pipe-folder-list-target-messages src ignore-list))
-              (len (length msgs)))
-         (elmo-with-progress-display (> len elmo-display-progress-threshold)
-             (elmo-folder-move-messages len (if copy
-                                                "Copying messages..."
-                                              "Moving messages..."))
+       (let ((msgs (elmo-pipe-folder-list-target-messages src ignore-list)))
+         (elmo-with-progress-display (elmo-folder-move-messages (length msgs))
+             (if copy "Copying messages" "Moving messages")
            (elmo-folder-move-messages src msgs dst copy))
          (when (and copy msgs)
            (setq ignore-list (elmo-number-set-append-list ignore-list msgs))))
@@ -182,6 +179,9 @@
 (luna-define-method elmo-folder-open-internal ((folder elmo-pipe-folder))
   (elmo-folder-open-internal (elmo-pipe-folder-dst-internal folder)))
 
+(luna-define-method elmo-folder-open-internal-p ((folder elmo-pipe-folder))
+  (elmo-folder-open-internal-p (elmo-pipe-folder-dst-internal folder)))
+
 (luna-define-method elmo-folder-close-internal ((folder elmo-pipe-folder))
   (elmo-folder-close-internal (elmo-pipe-folder-dst-internal folder)))
 
@@ -266,6 +266,13 @@
   (and (elmo-folder-plugged-p (elmo-pipe-folder-src-internal folder))
        (elmo-folder-plugged-p (elmo-pipe-folder-dst-internal folder))))
 
+(luna-define-method elmo-folder-set-plugged ((folder elmo-pipe-folder)
+                                            plugged &optional add)
+  (elmo-folder-set-plugged (elmo-pipe-folder-src-internal folder)
+                          plugged add)
+  (elmo-folder-set-plugged (elmo-pipe-folder-dst-internal folder)
+                          plugged add))
+
 (luna-define-method elmo-folder-message-file-p ((folder elmo-pipe-folder))
   (elmo-folder-message-file-p (elmo-pipe-folder-dst-internal folder)))