mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Don't manipulate gnus-newsrc-alist if it hasn't been initalized

Browse Source 
* lisp/gnus/gnus-group.el (gnus-group-set-info): Packages that use
Gnus summary mode without actually booting Gnus might end up in this
situation. See bug#36903
This commit is contained in:
Eric Abrahamsen 2019-10-03 16:21:02 -07:00
parent 8023715cf1
commit 2ff16a4837
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/gnus/gnus-group.el
View File

@ -4465,12 +4465,14 @@ and the second element is the address."
(setcar entry (length
(gnus-list-of-unread-articles (car info)))))
;; The above `setcar' will only affect the hashtable, not
;; the alist: update the alist separately.
(push info (cdr (setq gnus-newsrc-alist
(remove (assoc-string
(gnus-info-group info)
gnus-newsrc-alist)
gnus-newsrc-alist)))))
;; the alist: update the alist separately, but only if
;; it's been initialized.
(when gnus-newsrc-alist
(push info (cdr (setq gnus-newsrc-alist
(remove (assoc-string
(gnus-info-group info)
gnus-newsrc-alist)
gnus-newsrc-alist))))))
(error "No such group: %s" (gnus-info-group info))))))
;; Ad-hoc function for inserting data from a different newsrc.eld