[elpa] externals/gnorb 5f9611b 449/449: Fix some quoting problems in doc strings

[Stefan Monnier]

branch: externals/gnorb
commit 5f9611b783eefd56fad4cf9f76b7b78b2e989edb
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Fix some quoting problems in doc strings
    
    Most of these are minor issues involving, e.g., quoting `like this'
    instead of 'like this'.  A few involve escaping ` and ' with a
    preceding \= when the characters should not be turned into curved single
    quotes.
---
 gnorb-bbdb.el     | 6 +++---
 gnorb-registry.el | 6 +++---
 gnorb-utils.el    | 9 ++++-----
 gnorb.el          | 1 -
 4 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/gnorb-bbdb.el b/gnorb-bbdb.el
index e363825..e961152 100644
--- a/gnorb-bbdb.el
+++ b/gnorb-bbdb.el
@@ -81,7 +81,7 @@ Setting it to the symbol seen will collect the messages most
 recently opened and viewed. The symbol received means gnorb will
 collect the most recent messages by Date header.
 
-In other words, if this variable is set to 'received, and a
+In other words, if this variable is set to `received', and a
 record's messages field is already full of recently-received
 messages, opening a five-year-old message (for instance) from
 this record will not push a link to the message into the field."
@@ -102,9 +102,9 @@ mentioned in the docstring of `format-time-string', which 
see."
 (defcustom gnorb-bbdb-message-link-format-one "%:count"
   "How a single message is formatted in the list of recent messages.
 This format string is used in single-line display -- note that by
-default, no user-created xfields are displayed in the 'one-line
+default, no user-created xfields are displayed in the `one-line'
 layout found in `bbdb-layout-alist'. If you want this field to
-appear there, put its name in the \"order\" list of the 'one-line
+appear there, put its name in the \"order\" list of the `one-line'
 layout.
 
 Available information for each message includes the subject, the
diff --git a/gnorb-registry.el b/gnorb-registry.el
index ea3f779..3adc0cb 100644
--- a/gnorb-registry.el
+++ b/gnorb-registry.el
@@ -137,7 +137,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)
@@ -192,7 +192,7 @@ 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))))
 
@@ -201,7 +201,7 @@ key."
   (registry-search gnus-registry-db :member `((org-tags ,tag))))
 
 (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-tagged-messages ()
diff --git a/gnorb-utils.el b/gnorb-utils.el
index e34646a..3d27852 100644
--- a/gnorb-utils.el
+++ b/gnorb-utils.el
@@ -77,7 +77,6 @@ with `gnorb-window-conf'.")
   "Name of the mail header used to store the ID of a related Org
   heading. Only used locally: always stripped when the mail is
   sent."
-  :group 'gnorb
   :type 'string)
 
 (defun gnorb-version ()
@@ -105,7 +104,7 @@ Only works for Gnorb installed via the package manager."
               ,@(last ign-headers-list 1)))
        (setq message-ignored-mail-headers
             (mapconcat
-             'identity ign-headers-list "|")))))
+             #'identity ign-headers-list "|")))))
 
 ;;;###autoload
 (defun gnorb-restore-layout ()
@@ -146,14 +145,14 @@ and Gnus and BBDB maps."
   (let* ((link (org-link-unescape link))
         (group (car (org-split-string link "#")))
         (id (gnorb-bracket-message-id
-             (second (org-split-string link "#"))))
+             (cl-second (org-split-string link "#"))))
         (backend
          (car (gnus-find-method-for-group group))))
     (gnorb-follow-gnus-link group id)
     (call-interactively
      (if (eq backend 'nntp)
-        'gnus-summary-followup-with-original
-       'gnus-summary-wide-reply-with-original))))
+        #'gnus-summary-followup-with-original
+       #'gnus-summary-wide-reply-with-original))))
 
 (defun gnorb-follow-gnus-link (group id)
   "Be a little clever about following gnus links.
diff --git a/gnorb.el b/gnorb.el
index af9417f..90a046f 100644
--- a/gnorb.el
+++ b/gnorb.el
@@ -37,6 +37,5 @@
 (with-eval-after-load 'org
   (require 'gnorb-org))
 
-
 (provide 'gnorb)
 ;;; gnorb.el ends here