X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-filter.el;h=296efb9b4f12cb053d5fd6d990481e1f0857a5fe;hb=a5bcb1f0eb41b558a6b4ed277047adc6b8676a2a;hp=33b9808eab5570904e06f25e0b276dd3860a6f0c;hpb=09146fcf7d94002d926e91180ec8d7df6243215f;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 33b9808..296efb9 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -109,7 +109,7 @@
    type))
 
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-filter-folder)
-					      numlist seen-list)
+					      numlist flag-table)
   (if (elmo-filter-folder-require-msgdb-internal folder)
       (let* ((target-folder (elmo-filter-folder-target-internal folder))
 	     (len (length numlist))
@@ -138,13 +138,13 @@
     ;; Does not require msgdb.
     (elmo-folder-msgdb-create
      (elmo-filter-folder-target-internal folder)
-     numlist seen-list)))
+     numlist flag-table)))
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-filter-folder)
-					       unread &optional number)
+					       &optional flag number)
   (elmo-folder-append-buffer
    (elmo-filter-folder-target-internal folder)
-   unread number))
+   flag number))
 
 (luna-define-method elmo-message-fetch ((folder elmo-filter-folder)
 					number strategy
@@ -216,8 +216,9 @@
 	diff)
     (if (vectorp condition)
 	(cond
-	 ((and (string= (elmo-filter-key condition) "mark")
+	 ((and (string= (elmo-filter-key condition) "flag")
 	       (or (string= (elmo-filter-value condition) "any")
+		   (string= (elmo-filter-value condition) "digest")
 		   (string= (elmo-filter-value condition) "unread")))
 	  (setq diff (elmo-folder-diff (elmo-filter-folder-target-internal
 					folder)))
@@ -295,16 +296,20 @@
 
 (luna-define-method elmo-folder-mark-as-important :around ((folder
 							    elmo-filter-folder)
-							   numbers)
+							   numbers
+							   &optional
+							   ignore-flag)
   (elmo-folder-mark-as-important (elmo-filter-folder-target-internal folder)
-				 numbers)
+				 numbers ignore-flag)
     (luna-call-next-method))
 
 (luna-define-method elmo-folder-unmark-important :around ((folder
 							   elmo-filter-folder)
-							  numbers)
+							  numbers
+							  &optional
+							  ignore-flag)
   (elmo-folder-unmark-important (elmo-filter-folder-target-internal folder)
-				numbers)
+				numbers ignore-flag)
   (luna-call-next-method))
 
 (luna-define-method elmo-folder-mark-as-answered :around ((folder