* elmo.el (elmo-generic-folder-append-messages): Set flag as nil

[elisp/wanderlust.git] / elmo / elmo-filter.el

diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 33b9808..296efb9 100644 (file)
--- 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