[elpa] externals/gnorb b632038 332/449: gnorb-registry.el: Check for old version of registry

[Stefan Monnier]

branch: externals/gnorb
commit b632038f983e69bec8b44c90c7b05a8d4828b8b7
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>

    gnorb-registry.el: Check for old version of registry
    
    * gnorb-registry.el (gnorb-refresh-usage-status): Make sure this works
      for older versions of the registry, where the max-hard slot hasn't
      been replaced by max-size.
---
 gnorb-registry.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnorb-registry.el b/gnorb-registry.el
index bcd5adc..9220565 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)