Commit f5a62bb4 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

Ammended for bug fix on the loader nunion.

From Ted Zlatanov <tzz@lifelogs.com>.

* (gnus-sync-save): Keep unknown groups in `gnus-sync-newsrc-loader'.
parent 8c330707
......@@ -4,7 +4,7 @@
2010-08-13 Teodor Zlatanov <tzz@lifelogs.com>
Doc fixes and keep unknown groups.
Doc fixes and keep unknown groups (ammended for nunion bug fix).
* gnus-sync.el: Fix docs.
(gnus-sync-save): Keep unknown groups in `gnus-sync-newsrc-loader'.
......
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment