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

to killed-list.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4f14f74..8e9b013 100644 (file)
--- 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 (file)
--- 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