X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=elmo%2Felmo-nmz.el;h=bc46e716ee8a7b29b8a5cc80ff10e7906f7d1c72;hb=9ddac14c0b5daa5f6226bb422c36d16b2ccac5e9;hp=4459d24954586f2f65efd4cc0496d149945dd5fb;hpb=2a411790da5e15af74e1b82857c221cea02059f7;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el
index 4459d24..bc46e71 100644
--- a/elmo/elmo-nmz.el
+++ b/elmo/elmo-nmz.el
@@ -117,7 +117,10 @@ If the value is a list, all elements are used as index paths for namazu."
     entity))
 
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-nmz-folder)
-					      numlist seen-list)
+					      numlist new-mark
+					      already-mark seen-mark
+					      important-mark
+					      seen-list)
   (let* (overview number-alist mark-alist entity
 		  i percent num pair)
     (setq num (length numlist))
@@ -145,7 +148,7 @@ If the value is a list, all elements are used as index paths for namazu."
 	       (or (elmo-msgdb-global-mark-get
 		    (elmo-msgdb-overview-entity-get-id
 		     entity))
-		   elmo-msgdb-new-mark))))
+		   new-mark))))
       (when (> num elmo-display-progress-threshold)
 	(setq i (1+ i))
 	(setq percent (/ (* i 100) num))
@@ -251,6 +254,25 @@ If the value is a list, all elements are used as index paths for namazu."
 (luna-define-method elmo-folder-exists-p ((folder elmo-nmz-folder))
   t)
 
+;;; To override elmo-map-folder methods.
+(luna-define-method elmo-folder-list-unreads-internal
+  ((folder elmo-nmz-folder) unread-marks &optional mark-alist)
+  t)
+
+(luna-define-method elmo-folder-unmark-important ((folder elmo-nmz-folder)
+						  numbers)
+  t)
+
+(luna-define-method elmo-folder-mark-as-important ((folder elmo-nmz-folder)
+						   numbers)
+  t)
+
+(luna-define-method elmo-folder-unmark-read ((folder elmo-nmz-folder) numbers)
+  t)
+
+(luna-define-method elmo-folder-mark-as-read ((folder elmo-nmz-folder) numbers)
+  t)
+
 (require 'product)
 (product-provide (provide 'elmo-nmz) (require 'elmo-version))