Fix some quoting problems in doc strings

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

diff --git a/packages/gnorb/gnorb-registry.el b/packages/gnorb/gnorb-registry.el
index bcd5adc2c999369ec070abba9693c4a70ad4e9f1..565e54eeef349fa97e3c94841b1036878d573f8e 100644 (file)
--- a/packages/gnorb/gnorb-registry.el
+++ b/packages/gnorb/gnorb-registry.el
@@ -80,7 +80,7 @@ sent. Save the relevant Org ids in the 'gnorb-ids key."
 
 (defun gnorb-registry-capture ()
   "When capturing from a Gnus message, add our new Org heading id
-to the message's registry entry, under the 'gnorb-ids key."
+to the message's registry entry, under the `gnorb-ids' key."
   (when (and (with-current-buffer
                 (org-capture-get :original-buffer)
               (memq major-mode '(gnus-summary-mode gnus-article-mode)))
@@ -139,7 +139,7 @@ even for headings that appear to no longer exist."
 (defun gnorb-delete-association (msg-id org-id)
   "Disassociate a message and a headline.
 
-This removes an Org heading's ORG-ID from the 'gnorb-ids key of
+This removes an Org heading's ORG-ID from the `gnorb-ids' key of
 the MSG-ID."
   (let ((org-ids (gnus-registry-get-id-key msg-id 'gnorb-ids)))
     (when (member org-id org-ids)
@@ -194,12 +194,12 @@ archived headings as well."
             deleted-count)))
 
 (defun gnorb-registry-org-id-search (id)
-  "Find all messages that have the org ID in their 'gnorb-ids
+  "Find all messages that have the org ID in their `gnorb-ids'
 key."
   (registry-search gnus-registry-db :member `((gnorb-ids ,id))))
 
 (defun gnorb-registry-tracked-messages ()
-  "Return all message-ids that have non-empty 'gnorb-ids keys."
+  "Return all message-ids that have non-empty `gnorb-ids' keys."
   (registry-search gnus-registry-db :regex `((gnorb-ids ".+"))))
 
 (defun gnorb-registry-tracked-headings ()
@@ -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)