From e848cab764dc9bbfd976826b9257be95de45a35d Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 13 Jan 2005 15:22:57 +0000 Subject: [PATCH] * elmo-shimbun.el (elmo-folder-plugged-p): Treat "@" as always plugged. --- elmo/ChangeLog | 5 +++++ elmo/elmo-shimbun.el | 14 +++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 232d320..e727637 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-01-13 Yoichi NAKAYAMA + + * elmo-shimbun.el (elmo-folder-plugged-p): Treat "@" as + always plugged. + 2005-01-02 Hiroya Murata * elmo-filter.el (elmo-message-field): Define. diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el index 0fb3f24..fe75944 100644 --- a/elmo/elmo-shimbun.el +++ b/elmo/elmo-shimbun.el @@ -282,13 +282,13 @@ If it is the symbol `all', update overview for all shimbun folders." folder nil)) (luna-define-method elmo-folder-plugged-p ((folder elmo-shimbun-folder)) - (elmo-plugged-p - "shimbun" - (and (elmo-shimbun-folder-shimbun-internal folder) - (shimbun-server (elmo-shimbun-folder-shimbun-internal folder))) - nil nil - (and (elmo-shimbun-folder-shimbun-internal folder) - (shimbun-server (elmo-shimbun-folder-shimbun-internal folder))))) + (if (elmo-shimbun-folder-shimbun-internal folder) + (elmo-plugged-p + "shimbun" + (shimbun-server (elmo-shimbun-folder-shimbun-internal folder)) + nil nil + (shimbun-server (elmo-shimbun-folder-shimbun-internal folder))) + t)) (luna-define-method elmo-folder-set-plugged ((folder elmo-shimbun-folder) plugged &optional add) -- 1.7.10.4