From 25af0c5f6f277118fe9f1d63114ad75774ec1e37 Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 16 Nov 2006 14:27:47 +0000 Subject: [PATCH] (elmo-folder-set-plugged): Define. --- elmo/ChangeLog | 4 ++++ elmo/elmo-pipe.el | 7 +++++++ 2 files changed, 11 insertions(+) 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 + + * elmo-pipe.el (elmo-folder-set-plugged): Define. + 2006-11-15 Hiroya Murata * 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))) -- 1.7.10.4