[gnus git] branch master updated: n0-17-25-gf9b7cf1 =1= * registry.el (registry-full): Fix logic.

       via  f9b7cf1052718555ece040f07e5b7d9e4bf0fc30 (commit)
      from  25ec0bdd5df677f42d9287d44fb917f3b730b522 (commit)


- Log -----------------------------------------------------------------
commit f9b7cf1052718555ece040f07e5b7d9e4bf0fc30
Author: Ted Zlatanov <[email protected]>
Date:   Mon May 9 15:42:42 2011 -0500

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae870e3..b17e3c3 100644
--- 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
--- 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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    1 +
 lisp/registry.el |    2 +-
 2 files changed, 2 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project