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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 232d320..e727637 100644 (file)
--- 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 (file)
--- 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)