From d88645bf29323e31c1d52cfd19de31453a192eef Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 22 May 2001 00:19:56 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-folder-open-internal): Check plugged before call `elmo-pipe-drain'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-pipe.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * elmo-pipe.el (elmo-folder-open-internal): Check plugged before + call `elmo-pipe-drain'. + 2001-05-19 Masahiro MURATA * 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))) -- 1.7.10.4