X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/1289a9cbad2c7019c10fb051f9d2b3099e9418e3..f10533854f4c7bb54247a11981191bf37b70cb36:/packages/gnorb/gnorb-registry.el diff --git a/packages/gnorb/gnorb-registry.el b/packages/gnorb/gnorb-registry.el index 92205653c..565e54eee 100644 --- 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 ()