* test-dist.el (test-elmo-modules-trailing-whitespace)

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

diff --git a/elmo/modb.el b/elmo/modb.el
index c02b7f4..6574e63 100644 (file)
--- a/elmo/modb.el
+++ b/elmo/modb.el
@@ -233,11 +233,11 @@ 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")