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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a6ac611..8bd7a66 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2001-11-21  Kenichi OKADA  <okada@opaopa.org>
 
+       * elmo-pipe.el (elmo-pipe-drain): Load killed-list.
+
+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>

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index ba7cdba..62a8358 100644 (file)
--- 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)))))