From ddaa8b804d8d28424dfe5700ca696425e1187bdf Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 13 Jan 2005 15:17:59 +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 ec82196..a8d3c4c 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-13 Hiroya Murata * elmo-maildir.el (elmo-map-message-fetch): Call diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el index bffd8f2..922a3d7 100644 --- a/elmo/elmo-shimbun.el +++ b/elmo/elmo-shimbun.el @@ -276,13 +276,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