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

`elmo-inhibit-number-mapping' as nil.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 36b770d..1697719 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-pipe.el (elmo-pipe-drain): If `copy' is non-nil, bind
+       `elmo-inhibit-number-mapping' as nil.
+
 2001-11-30  Tatsuya Kinoshita  <tats@iris.ne.jp>
 
        * elmo-pop3.el (elmo-pop3-parse-list-response): Allow multiple

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