procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't remove dummy.group from gnus-newsrc-alist on Gnus save

Browse source 
bug#53352

* lisp/gnus/gnus-start.el (gnus-gnus-to-quick-newsrc-format): This
function was removing dummy.group from the global value of
`gnus-newsrc-alist' on save; we only wanted to remove it temporarily.
This commit is contained in:
Eric Abrahamsen 2022-01-24 16:24:10 -08:00 • committed by Andreas Schwab
parent 821c240075
commit 0d46ee2dde
1 changed files with 13 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lisp/gnus/gnus-start.el
View file

@ -2868,12 +2868,6 @@ SPECIFIC-VARIABLES, or those in `gnus-variable-list'."
(princ "(setq gnus-newsrc-file-version ")
(princ (gnus-prin1-to-string gnus-version))
(princ ")\n"))
;; Sort `gnus-newsrc-alist' according to order in
;; `gnus-group-list'.
(setq gnus-newsrc-alist
(mapcar (lambda (g)
(nth 1 (gethash g gnus-newsrc-hashtb)))
(delete "dummy.group" gnus-group-list)))
(let* ((print-quoted t)
(print-escape-multibyte nil)
(print-escape-nonascii t)
@ -2892,17 +2886,20 @@ SPECIFIC-VARIABLES, or those in `gnus-variable-list'."
;; Remove the `gnus-killed-list' from the list of variables
;; to be saved, if required.
(delq 'gnus-killed-list (copy-sequence gnus-variable-list)))))
;; Encode group names in `gnus-newsrc-alist' and
;; `gnus-topic-alist' in order to keep newsrc.eld files
;; compatible with older versions of Gnus. At some point,
;; if/when a new version of Gnus is released, stop doing
;; this and move the corresponding decode in
;; `gnus-read-newsrc-el-file' into a conversion routine.
;; Sort `gnus-newsrc-alist' according to order in
;; `gnus-group-list'. Encode group names in
;; `gnus-newsrc-alist' and `gnus-topic-alist' in order to
;; keep newsrc.eld files compatible with older versions of
;; Gnus. At some point, if/when a new version of Gnus is
;; released, stop doing this and move the corresponding
;; decode in `gnus-read-newsrc-el-file' into a conversion
;; routine.
(gnus-newsrc-alist
(mapcar (lambda (info)
(cons (encode-coding-string (car info) 'utf-8-emacs)
(cdr info)))
gnus-newsrc-alist))
(mapcar (lambda (group)
(cons (encode-coding-string group 'utf-8-emacs)
(cdadr (gethash group
gnus-newsrc-hashtb))))
(remove "dummy.group" gnus-group-list)))
(gnus-topic-alist
(when (memq 'gnus-topic-alist variables)
(mapcar (lambda (elt)