From: okada <okada>
Date: Wed, 21 Nov 2001 07:59:06 +0000 (+0000)
Subject: 	* elmo-pipe.el (elmo-pipe-drain): Save killed-list.
X-Git-Tag: wl-2_8-root~134
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dcd5052ef1ed1f3ca5b5631e7af5b7e24b5bede8;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b3ca97a..a6ac611 100644
--- 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
--- 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)