X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/017f355b8a377d192fdf1a5151f70b691c1e9efb..4b07f2cf9a93f14a7a322c7624f17ab5dbeaf6e2:/packages/gnorb/gnorb-registry.el

diff --git a/packages/gnorb/gnorb-registry.el b/packages/gnorb/gnorb-registry.el
index bcd5adc2c..92205653c 100644
--- a/packages/gnorb/gnorb-registry.el
+++ b/packages/gnorb/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)