diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-08-14 10:50:20 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-08-14 10:50:20 +0000 |
| commit | f5a62bb4a36e413f9f9eb8f30e932b0919eeceaf (patch) | |
| tree | efaa41800f07e88677a48e61a50872b03758f9fb /lisp/gnus/gnus-sync.el | |
| parent | 8c33070780a535bf499b28e0d2350300e07c90c5 (diff) | |
| download | emacs-f5a62bb4a36e413f9f9eb8f30e932b0919eeceaf.tar.gz | |
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'.
Diffstat (limited to 'lisp/gnus/gnus-sync.el')
| -rw-r--r-- | lisp/gnus/gnus-sync.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/gnus/gnus-sync.el b/lisp/gnus/gnus-sync.el index c704ed73ff8..e68b3d82dbd 100644 --- a/lisp/gnus/gnus-sync.el +++ b/lisp/gnus/gnus-sync.el @@ -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" |