X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/faf966b6b5921074da6b99477e1f0bea29b45f6f..37c46180280f10fa5120a017acd04f7022d124e4:/gnorb-registry.el

diff --git a/gnorb-registry.el b/gnorb-registry.el
index bcd5adc2c..92205653c 100644
--- a/gnorb-registry.el
+++ b/gnorb-registry.el
@@ -235,7 +235,9 @@ number of tracked messages, the number of tracked headings, and how much of the
   (let ((messages (length (gnorb-registry-tracked-messages)))
 	(headings (length (gnorb-registry-tracked-headings)))
 	(reg-size (registry-size gnus-registry-db))
-	(reg-max-size (oref gnus-registry-db max-size)))
+	(reg-max-size (if (slot-exists-p gnus-registry-db 'max-size)
+			  (oref gnus-registry-db max-size)
+			(oref gnus-registry-db max-hard))))
     (with-current-buffer "*Gnorb Usage*"
       (let ((inhibit-read-only t))
        (erase-buffer)