X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-pipe.el;h=f3c7ffcb68172fe36187e8d4536d673f144aaf33;hb=b94b022f0ae454c082c4c21eeeb3ca32941a3ca0;hp=2abbbfbefe2acbe17cd305bf54b50b61d74101ad;hpb=fc4bded995d4b340873f48a97b2631a38b00435d;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 2abbbfb..f3c7ffc 100644
--- 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))))
@@ -255,6 +263,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)))