diff options
| author | Eric Abrahamsen | 2021-12-06 13:43:24 -0800 |
|---|---|---|
| committer | Eric Abrahamsen | 2021-12-06 13:45:27 -0800 |
| commit | e17aea73a5b2ae5f7cbf9057d7dad286be81ffc0 (patch) | |
| tree | 2ebc84fe025a59f5e27cf2b376133b989a587826 | |
| parent | bed5af1ea323a3b20ef505a05ccc69afaa9b645d (diff) | |
| download | emacs-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.el | 3 |
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))) |