* wl/wl-summary.el (wl-summary-mode): Check with fboundp before calling `make-local...

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

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 2abbbfb..68bb479 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -84,11 +84,22 @@
   (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-append-messages ((folder elmo-pipe-folder)
-                                                src-folder numbers
-                                                &optional same-number)
-  (elmo-folder-append-messages (elmo-pipe-folder-dst-internal folder)
-                              src-folder numbers
+(defun elmo-folder-append-messages-pipe-* (dst-folder
+                                          src-folder
+                                          numbers
+                                          same-number)
+  (elmo-folder-append-messages dst-folder
+                              (elmo-pipe-folder-dst-internal src-folder)
+                              numbers
+                              same-number))
+
+(defun elmo-folder-append-messages-*-pipe (dst-folder
+                                          src-folder
+                                          numbers
+                                          same-number)
+  (elmo-folder-append-messages (elmo-pipe-folder-dst-internal dst-folder)
+                              src-folder
+                              numbers
                               same-number))
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-pipe-folder)
@@ -134,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))))
@@ -171,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)))
 
@@ -255,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)))