From: hmurata <hmurata>
Date: Tue, 22 May 2001 00:19:56 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-folder-open-internal): Check plugged before
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d88645bf29323e31c1d52cfd19de31453a192eef;p=elisp%2Fwanderlust.git

* elmo-pipe.el (elmo-folder-open-internal): Check plugged before
call `elmo-pipe-drain'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5c690d8..38196c1 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-pipe.el (elmo-folder-open-internal): Check plugged before
+	call `elmo-pipe-drain'.
+
 2001-05-19  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
 
 	* elmo-mark.el (elmo-message-fetch-with-cache-process): Fixed
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 82cda99..b5d9237 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -108,8 +108,11 @@
 
 (luna-define-method elmo-folder-open-internal ((folder elmo-pipe-folder))
   (elmo-folder-open-internal (elmo-pipe-folder-dst-internal folder))
-  (elmo-pipe-drain (elmo-pipe-folder-src-internal folder)
-		   (elmo-pipe-folder-dst-internal folder)))
+  (let ((src-folder (elmo-pipe-folder-src-internal folder))
+	(dst-folder (elmo-pipe-folder-dst-internal folder)))
+    (when (and (elmo-folder-plugged-p src-folder)
+	       (elmo-folder-plugged-p dst-folder))
+      (elmo-pipe-drain src-folder dst-folder))))
 
 (luna-define-method elmo-folder-close-internal ((folder elmo-pipe-folder))
   (elmo-folder-close-internal(elmo-pipe-folder-dst-internal folder)))