From: okada <okada>
Date: Mon, 19 Nov 2001 18:50:33 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-pipe-drain): Append copied messaged
X-Git-Tag: wl-2_8-root~138
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fba75a17aaa3c9665bcd908d60efc05ecd4bef97;p=elisp%2Fwanderlust.git

* elmo-pipe.el (elmo-pipe-drain): Append copied messaged
to killed-list.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4f14f74..8e9b013 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-20  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-pipe.el (elmo-pipe-drain): Append copied messaged
+	to killed-list.
+
 2001-11-19  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-pipe.el (elmo-pipe-folder): Add `copy'.
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index ebe6166..a06e3de 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -111,7 +111,9 @@
     (unwind-protect
 	(elmo-folder-move-messages src msgs dst
 				   nil nil copy)
-      (elmo-progress-clear 'elmo-folder-move-messages)))
+      (elmo-progress-clear 'elmo-folder-move-messages))
+    (if copy
+	(elmo-msgdb-append-to-killed-list src msgs)))
   ;; Don't save msgdb here.
   ;; Because summary view of original folder is not updated yet.
   (elmo-folder-close-internal src)
@@ -216,7 +218,7 @@
 
 (luna-define-method elmo-folder-message-file-directory ((folder
 							 elmo-pipe-folder))
-  (elmo-folder-message-file-directory 
+  (elmo-folder-message-file-directory
    (elmo-pipe-folder-dst-internal folder)))
 
 (luna-define-method elmo-folder-message-make-temp-file-p