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

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

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  <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
--- 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)))))