X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=elmo%2Felmo-multi.el;h=c9d1368617110d7785d2e4c56984ae5710596786;hb=88d92346ec94d9f4c094659671c0c591c00d3bbd;hp=7ef950f024bbb5fba0ad0cc0c5d4ca8d32ed02af;hpb=37e4ec4a37d4fb8edc0c246d92ecbd92ae6a1b89;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 7ef950f..c9d1368 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -181,9 +181,10 @@
   (let ((pair (elmo-multi-real-folder-number folder number)))
     (elmo-message-field (car pair) (cdr pair) field)))
 
-(luna-define-method elmo-message-flags ((folder elmo-multi-folder) number)
+(luna-define-method elmo-message-flags ((folder elmo-multi-folder) number
+					&optional msgid)
   (let ((pair (elmo-multi-real-folder-number folder number)))
-    (elmo-message-flags (car pair) (cdr pair))))
+    (elmo-message-flags (car pair) (cdr pair) msgid)))
 
 (defun elmo-multi-split-numbers (folder numlist &optional as-is)
   (let ((numbers (sort numlist '<))