From: yoichi <yoichi>
Date: Thu, 13 Jan 2005 15:22:57 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-folder-plugged-p): Treat "@" as always plugged.
X-Git-Tag: wl-2_12_1pre~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e848cab764dc9bbfd976826b9257be95de45a35d;p=elisp%2Fwanderlust.git

* elmo-shimbun.el (elmo-folder-plugged-p): Treat "@" as always plugged.
---

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  <yoichi@geiin.org>
+
+	* elmo-shimbun.el (elmo-folder-plugged-p): Treat "@" as
+	always plugged.
+
 2005-01-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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)