* 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 (file)
--- 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 (file)
--- 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))