*** empty log message ***

[gnus] / lisp / gnus-logic.el

diff --git a/lisp/gnus-logic.el b/lisp/gnus-logic.el
index 291b660..58dfb09 100644 (file)
--- a/lisp/gnus-logic.el
+++ b/lisp/gnus-logic.el
@@ -171,9 +171,9 @@
      ((eq type 'at)
       (equal date match))
      ((eq type 'before)
-      (time-less match date))
+      (time-less-p match date))
      ((eq type 'after)
-      (time-less date match))
+      (time-less-p date match))
      (t
       (error "No such date score type: %s" type)))))