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

Ammended for bug fix on the loader nunion.

Browse source 
From Ted Zlatanov <tzz@lifelogs.com>.

* (gnus-sync-save): Keep unknown groups in `gnus-sync-newsrc-loader'.
This commit is contained in:
Katsumi Yamaoka 2010-08-14 10:50:20 +00:00
parent 8c33070780
commit f5a62bb4a3
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/gnus/gnus-sync.el
View file

@ -105,7 +105,7 @@ synchronized, I believe). Also see `gnus-variable-list'."
(cons offset (nth offset entry)))
gnus-sync-newsrc-offsets))))
(gnus-sync-newsrc-loader
(nunion gnus-sync-newsrc-loader
(nunion loader
(set-difference gnus-sync-newsrc-loader loader :key 'car)
:key 'car)))
@ -128,13 +128,16 @@ synchronized, I believe). Also see `gnus-variable-list'."
gnus-sync-global-vars))
variable)
(while variables
(when (and (boundp (setq variable (pop variables)))
(if (and (boundp (setq variable (pop variables)))
(symbol-value variable))
(princ "\n(setq ")
(princ (symbol-name variable))
(princ " '")
(prin1 (symbol-value variable))
(princ ")\n"))))
(progn
(princ "\n(setq ")
(princ (symbol-name variable))
(princ " '")
(prin1 (symbol-value variable))
(princ ")\n"))
(princ "\n;;; skipping empty variable ")
(princ (symbol-name variable)))))
(gnus-message
7
"gnus-sync: stored variables %s and %d groups in %s"