* registry.el (registry-full): Fix logic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae870e3..b17e3c3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * registry.el (registry-full): Add convenience method.
        (registry-insert): Use it.
+       (registry-full): Fix logic.
 
        * gnus-registry.el (gnus-registry-insert): Add wrapper that calls
        `registry-prune' if `registry-full' returns t.

diff --git a/lisp/registry.el b/lisp/registry.el
index 8a908a8..d862e9d 100644 (file)
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -263,7 +263,7 @@ With assert non-nil, errors out if the key does not exist already."
 
   (defmethod registry-full ((db registry-db))
     "Checks if registry-db THIS is full."
-    (< (registry-size db)
+    (>= (registry-size db)
        (oref db :max-hard)))
 
   (defmethod registry-insert ((db registry-db) key entry)