From: teranisi <teranisi>
Date: Wed, 7 Feb 2001 08:43:06 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-pipe-drain): Eliminated needless bindings;
X-Git-Tag: wl-2_8-root^2~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cad290c97353b4cfb512816afdca625ce25d977c;p=elisp%2Fwanderlust.git

* elmo-pipe.el (elmo-pipe-drain): Eliminated needless bindings;
 Use `elmo-close-internal' instead of `elmo-close'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index c302d33..5faa76b 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-pipe.el (elmo-pipe-drain): Eliminated needless bindings;
+	Use `elmo-close-internal' instead of `elmo-close'.
+
 2001-02-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-mark.el: New file.
@@ -122,6 +127,10 @@
 
 	* elmo-imap4.el: Rewrite with luna.
 
+	* mmimap.el: New file.
+
+	* mmelmo.el, mmelmo-imap4.el: Removed.
+
 	* elmo-net.el: Ditto.
 
 	* elmo-pop3.el (elmo-pop3-folder): New luna class.
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 5ffb4d0..c659cc4 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -97,16 +97,13 @@
 
 (defun elmo-pipe-drain (src dst)
   "Move all messages of SRC to DST."
-  (let (elmo-nntp-use-cache
-	elmo-imap4-use-cache
-	elmo-pop3-use-cache ; Inhibit caching while moving messages.
-	(elmo-pop3-inhibit-uidl t)) ; No need to use UIDL
+  (let ((elmo-pop3-inhibit-uidl t)) ; No need to use UIDL
     (message "Checking %s..." (elmo-folder-name-internal src))
     (elmo-folder-open-internal src)
     (elmo-folder-move-messages src (elmo-folder-list-messages src) dst))
-  ;; All of the msgdb entry is nil. 
-  ;; But it is ok because all messages are drained.
-  (elmo-folder-close src)
+  ;; Don't save msgdb here.
+  ;; Because summary view of original folder is not updated yet.
+  (elmo-folder-close-internal src)
   (run-hooks 'elmo-pipe-drained-hook))
 
 (luna-define-method elmo-folder-open-internal ((folder elmo-pipe-folder))