From 3160fce920e3d3e67b55805ac16bac65f442d1c3 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 21 Nov 2001 08:51:43 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-pipe-drain): Load killed-list. --- elmo/ChangeLog | 4 ++++ elmo/elmo-pipe.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index a6ac611..8bd7a66 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,9 @@ 2001-11-21 Kenichi OKADA + * elmo-pipe.el (elmo-pipe-drain): Load killed-list. + +2001-11-21 Kenichi OKADA + * elmo-pipe.el (elmo-pipe-drain): Save killed-list. 2001-11-20 Kenichi OKADA diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el index ba7cdba..62a8358 100644 --- a/elmo/elmo-pipe.el +++ b/elmo/elmo-pipe.el @@ -102,7 +102,8 @@ (let ((elmo-inhibit-number-mapping t) ; No need to use UIDL msgs len) (message "Checking %s..." (elmo-folder-name-internal src)) - (elmo-folder-open-internal src) + ;; for load killed-list + (elmo-folder-open src) (setq msgs (elmo-folder-list-messages src) len (length msgs)) (when (> len elmo-display-progress-threshold) @@ -115,6 +116,7 @@ (if (and copy msgs) (progn (elmo-msgdb-append-to-killed-list src msgs) + ;; for save killed-list instead of elmo-folder-close-internal (elmo-msgdb-killed-list-save (elmo-folder-msgdb-path src) (elmo-folder-killed-list-internal src))))) -- 1.7.10.4