X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e2aec513de00c1bf420d0258c708ba25a9ab3eda..c7641e3c89bbd310dea7d81da8599823b821057e:/lisp/gnus/registry.el

diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index 9830fc30c9..79f07812b2 100644
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -249,6 +249,11 @@ With assert non-nil, errors out if the key does not exist already."
 	  (remhash key data)))
       keys))
 
+  (defmethod registry-size ((db registry-db))
+    "Returns the size of the registry-db object THIS.
+This is the key count of the :data slot."
+    (hash-table-count (oref db :data)))
+
   (defmethod registry-full ((db registry-db))
     "Checks if registry-db THIS is full."
     (>= (registry-size db)
@@ -297,11 +302,6 @@ Errors out if the key exists already."
 		 (registry-lookup-secondary-value db tr val value-keys))))
 	   (oref db :data))))))
 
-  (defmethod registry-size ((db registry-db))
-    "Returns the size of the registry-db object THIS.
-This is the key count of the :data slot."
-    (hash-table-count (oref db :data)))
-
   (defmethod registry-prune ((db registry-db) &optional sortfun)
     "Prunes the registry-db object THIS.
 Removes only entries without the :precious keys if it can,