* wl-mime.el: Add (eval-when-compile (require 'mmbuffer)).

[elisp/wanderlust.git] / elmo / modb.el

diff --git a/elmo/modb.el b/elmo/modb.el
index 762113f..6574e63 100644 (file)
--- a/elmo/modb.el
+++ b/elmo/modb.el
@@ -233,25 +233,25 @@ If optional argument TYPE is specified, return converted value.")
     (cond
      ((string= key "last")
       (<= (length (memq number population))
-         (string-to-int (elmo-filter-value condition))))
+         (string-to-number (elmo-filter-value condition))))
      ((string= key "first")
       (< (- (length population)
            (length (memq number population)))
-        (string-to-int (elmo-filter-value condition))))
+        (string-to-number (elmo-filter-value condition))))
      ((string= key "flag")
       (let ((flags (elmo-msgdb-flags msgdb number)))
        (cond ((string= (elmo-filter-value condition) "any")
               (and flags (not (equal flags '(cached)))))
-            ((string= (elmo-filter-value condition) "digest")
-             (catch 'found
-               (dolist (flag flags)
-                 (when (or (memq flag elmo-digest-flags)
-                           (elmo-global-flag-p flag))
-                   (throw 'found t)))))
-            ((string= (elmo-filter-value condition) "read")
-             (not (memq 'read flags)))
-            (t
-             (memq (intern (elmo-filter-value condition)) flags)))))
+             ((string= (elmo-filter-value condition) "digest")
+              (catch 'found
+                (dolist (flag flags)
+                  (when (or (memq flag elmo-digest-flags)
+                            (elmo-global-flag-p flag))
+                    (throw 'found t)))))
+             ((string= (elmo-filter-value condition) "read")
+              (not (memq 'read flags)))
+             (t
+              (memq (intern (elmo-filter-value condition)) flags)))))
      (t
       (elmo-msgdb-message-match-condition (elmo-message-entity-handler entity)
                                          condition entity)))))