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

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

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  <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
--- 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)