From: hmurata <hmurata>
Date: Sun, 2 Dec 2001 11:34:08 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-pipe-drain): If `copy' is non-nil, bind
X-Git-Tag: wl-2_8-root~101
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2a37fa42f569a10aeef83c6715d1cfc8a1041c1d;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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