X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=elmo%2Felmo-multi.el;h=d554abf06694974df418eb15e446983247598818;hb=8ec27cbd353823f4e7e6fa0480bc796f943067b6;hp=78c5d8430c7a3f03dab8c6ff13f170e61091082d;hpb=21f27bac7391dd60d5e54c2c4c5ef1e7b5557a54;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 78c5d84..d554abf 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -189,6 +189,10 @@
   (let ((pair (elmo-multi-real-folder-number folder number)))
     (elmo-message-mark (car pair) (cdr pair))))
 
+(luna-define-method elmo-message-flags ((folder elmo-multi-folder) number)
+  (let ((pair (elmo-multi-real-folder-number folder number)))
+    (elmo-message-flags (car pair) (cdr pair))))
+
 (defun elmo-multi-split-numbers (folder numlist &optional as-is)
   (let ((numbers (sort numlist '<))
 	(divider (elmo-multi-folder-divide-number-internal folder))