* registry.el (registry-insert): Use it. Fix logic here too.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b17e3c3..3a2d8d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,7 @@
 2011-05-09  Teodor Zlatanov  <tzz@lifelogs.com>
 
-       * registry.el (registry-full): Add convenience method.
-       (registry-insert): Use it.
-       (registry-full): Fix logic.
+       * registry.el (registry-full): Add convenience method.  Fix logic.
+       (registry-insert): Use it.  Fix logic here too.
 
        * 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 d862e9d..4beafd4 100644 (file)
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -274,7 +274,7 @@ Errors out if the key exists already."
     (assert (not (gethash key (oref db :data))) nil
            "Key already exists in database")
 
-    (assert (registry-full db)
+    (assert (not (registry-full db))
            nil
            "registry max-hard size limit reached")