* elmo-multi.el (elmo-folder-newsgroups): Simplify.

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

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index d363143..fe6239e 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -55,11 +55,9 @@
   folder)
 
 (luna-define-method elmo-folder-get-primitive-list ((folder elmo-pipe-folder))
-  (elmo-flatten
-   (mapcar
-    'elmo-folder-get-primitive-list
-    (list (elmo-pipe-folder-src-internal folder)
-         (elmo-pipe-folder-dst-internal folder)))))
+  (nconc
+   (elmo-folder-get-primitive-list (elmo-pipe-folder-src-internal folder))
+   (elmo-folder-get-primitive-list (elmo-pipe-folder-dst-internal folder))))
 
 (luna-define-method elmo-folder-contains-type ((folder elmo-pipe-folder)
                                               type)
@@ -100,7 +98,7 @@
   (unwind-protect
       (progn
        (elmo-folder-set-killed-list-internal src ignore-list)
-       (elmo-folder-list-messages src))
+       (elmo-folder-list-messages src t))
     (elmo-folder-set-killed-list-internal src nil)))
 
 (defun elmo-pipe-drain (src dst &optional copy ignore-list)