aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric Abrahamsen2021-12-06 13:43:24 -0800
committerEric Abrahamsen2021-12-06 13:45:27 -0800
commite17aea73a5b2ae5f7cbf9057d7dad286be81ffc0 (patch)
tree2ebc84fe025a59f5e27cf2b376133b989a587826
parentbed5af1ea323a3b20ef505a05ccc69afaa9b645d (diff)
downloademacs-e17aea73a5b2ae5f7cbf9057d7dad286be81ffc0.tar.gz
emacs-e17aea73a5b2ae5f7cbf9057d7dad286be81ffc0.zip
When registering Gnus message ids, guard against no registry
* lisp/gnus/gnus-registry.el (gnus-registry-register-message-ids): There are situations where this code is called without a full Gnus startup (eg, debbugs). If the registry doesn't exist, just skip this process.
-rw-r--r--lisp/gnus/gnus-registry.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 8ce88dc81e4..163d543afd1 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -847,7 +847,8 @@ Overrides existing keywords with FORCE set non-nil."
847(defun gnus-registry-register-message-ids () 847(defun gnus-registry-register-message-ids ()
848 "Register the Message-ID of every article in the group." 848 "Register the Message-ID of every article in the group."
849 (unless (or (gnus-parameter-registry-ignore gnus-newsgroup-name) 849 (unless (or (gnus-parameter-registry-ignore gnus-newsgroup-name)
850 (null gnus-registry-register-all)) 850 (null gnus-registry-register-all)
851 (null (eieio-object-p gnus-registry-db)))
851 (dolist (article gnus-newsgroup-articles) 852 (dolist (article gnus-newsgroup-articles)
852 (let* ((id (gnus-registry-fetch-message-id-fast article)) 853 (let* ((id (gnus-registry-fetch-message-id-fast article))
853 (groups (gnus-registry-get-id-key id 'group))) 854 (groups (gnus-registry-get-id-key id 'group)))