* elmo-pipe.el (elmo-pipe-drain): If `copy' is non-nil, bind

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

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 23209e5..0d8f999 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -99,7 +99,7 @@
 
 (defun elmo-pipe-drain (src dst copy)
   "Move all messages of SRC to DST."
-  (let ((elmo-inhibit-number-mapping t) ; No need to use UIDL
+  (let ((elmo-inhibit-number-mapping (not copy)) ; No need to use UIDL
        msgs len)
     (message "Checking %s..." (elmo-folder-name-internal src))
     ;; Warnnig: some function requires msgdb