* elmo-pipe.el (elmo-pipe-drain): Save killed-list.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b3ca97a..a6ac611 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-21  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-pipe.el (elmo-pipe-drain): Save killed-list.
+
 2001-11-20  Kenichi OKADA  <okada@opaopa.org>
 
        * elmo-pipe.el (elmo-pipe-drain): Append copied messages

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index a06e3de..5844bf0 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -112,8 +112,12 @@
        (elmo-folder-move-messages src msgs dst
                                   nil nil copy)
       (elmo-progress-clear 'elmo-folder-move-messages))
-    (if copy
-       (elmo-msgdb-append-to-killed-list src msgs)))
+    (if (and copy msgs)
+       (progn
+         (elmo-msgdb-append-to-killed-list src msgs)
+         (elmo-msgdb-killed-list-save
+          (elmo-folder-msgdb-path folder)
+          (elmo-folder-killed-list-internal folder)))))
   ;; Don't save msgdb here.
   ;; Because summary view of original folder is not updated yet.
   (elmo-folder-close-internal src)