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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ec82196..a8d3c4c 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-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-maildir.el (elmo-map-message-fetch): Call

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index bffd8f2..922a3d7 100644 (file)
--- 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)