From: hmurata <hmurata>
Date: Thu, 16 Nov 2006 14:27:47 +0000 (+0000)
Subject: (elmo-folder-set-plugged): Define.
X-Git-Tag: wl-2_15_6-fixes~111
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=25af0c5f6f277118fe9f1d63114ad75774ec1e37;p=elisp%2Fwanderlust.git

(elmo-folder-set-plugged): Define.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ea7cc85..f78ce9a 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-pipe.el (elmo-folder-set-plugged): Define.
+
 2006-11-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elsp-bsfilter.el (elmo-spam-bsfilter-use-remote): New user option.
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 163fb71..f3c7ffc 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -263,6 +263,13 @@
   (and (elmo-folder-plugged-p (elmo-pipe-folder-src-internal folder))
        (elmo-folder-plugged-p (elmo-pipe-folder-dst-internal folder))))
 
+(luna-define-method elmo-folder-set-plugged ((folder elmo-pipe-folder)
+					     plugged &optional add)
+  (elmo-folder-set-plugged (elmo-pipe-folder-src-internal folder)
+			   plugged add)
+  (elmo-folder-set-plugged (elmo-pipe-folder-dst-internal folder)
+			   plugged add))
+
 (luna-define-method elmo-folder-message-file-p ((folder elmo-pipe-folder))
   (elmo-folder-message-file-p (elmo-pipe-folder-dst-internal folder)))