From dcd5052ef1ed1f3ca5b5631e7af5b7e24b5bede8 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 21 Nov 2001 07:59:06 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-pipe-drain): Save killed-list. --- elmo/ChangeLog | 4 ++++ elmo/elmo-pipe.el | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * elmo-pipe.el (elmo-pipe-drain): Save killed-list. + 2001-11-20 Kenichi OKADA * 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) -- 1.7.10.4