Squashed 'packages/gnorb/' changes from 538b5bd..d754d2f

[gnu-emacs-elpa] / gnorb-registry.el

diff --git a/gnorb-registry.el b/gnorb-registry.el
index bcd5adc2c999369ec070abba9693c4a70ad4e9f1..92205653c7dd48a1db3a26a470b7b1ddaccd67a9 100644 (file)
--- 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)