diff options
| author | Katsumi Yamaoka | 2010-08-13 10:54:05 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-08-13 10:54:05 +0000 |
| commit | bbe276f2bff4be399edefde166c024fd09f54d1f (patch) | |
| tree | d0fdc7d7499179a01f10c0e310b99a2e226a31d8 | |
| parent | 9fc8d4649f8852d73d5c015793cd6ebe9de3a94c (diff) | |
| download | emacs-bbe276f2bff4be399edefde166c024fd09f54d1f.tar.gz emacs-bbe276f2bff4be399edefde166c024fd09f54d1f.zip | |
Minor bug fixes for gnus-sync.el.
From Ted Zlatanov <tzz@lifelogs.com>.
* gnus-sync.el (gnus-sync-save): Define `variable' so the compiler is
quiet.
* gnus-sync.el (gnus-sync-read): Use `gnus-sync-newsrc-offsets' (fix typo).
| -rw-r--r-- | lisp/gnus/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sync.el | 5 |
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ead4a7fe7e8..9a5bd7bc144 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2010-08-12 Teodor Zlatanov <tzz@lifelogs.com> | ||
| 2 | |||
| 3 | Minor bug fixes for gnus-sync.el. | ||
| 4 | |||
| 5 | * gnus-sync.el (gnus-sync-save): Define `variable' so the compiler is | ||
| 6 | quiet. | ||
| 7 | |||
| 8 | * gnus-sync.el (gnus-sync-read): Use `gnus-sync-newsrc-offsets' (fix typo). | ||
| 9 | |||
| 1 | 2010-07-30 Lawrence Mitchell <wence@gmx.li> | 10 | 2010-07-30 Lawrence Mitchell <wence@gmx.li> |
| 2 | 11 | ||
| 3 | Make saving and restoring of hidden threads work with overlays. | 12 | Make saving and restoring of hidden threads work with overlays. |
diff --git a/lisp/gnus/gnus-sync.el b/lisp/gnus/gnus-sync.el index 1bf07409648..153217ef38c 100644 --- a/lisp/gnus/gnus-sync.el +++ b/lisp/gnus/gnus-sync.el | |||
| @@ -118,7 +118,8 @@ synchronized, I believe). Also see `gnus-variable-list'." | |||
| 118 | (print-circle nil) | 118 | (print-circle nil) |
| 119 | (print-escape-newlines t) | 119 | (print-escape-newlines t) |
| 120 | (variables (cons 'gnus-sync-newsrc-loader | 120 | (variables (cons 'gnus-sync-newsrc-loader |
| 121 | gnus-sync-global-vars))) | 121 | gnus-sync-global-vars)) |
| 122 | variable) | ||
| 122 | (while variables | 123 | (while variables |
| 123 | (when (and (boundp (setq variable (pop variables))) | 124 | (when (and (boundp (setq variable (pop variables))) |
| 124 | (symbol-value variable)) | 125 | (symbol-value variable)) |
| @@ -179,7 +180,7 @@ synchronized, I believe). Also see `gnus-variable-list'." | |||
| 179 | (setq gnus-sync-newsrc-loader nil))) | 180 | (setq gnus-sync-newsrc-loader nil))) |
| 180 | (nil)) | 181 | (nil)) |
| 181 | ;; make the hashtable again because the newsrc-alist may have been modified | 182 | ;; make the hashtable again because the newsrc-alist may have been modified |
| 182 | (when gnus-sync-newsrc-vars | 183 | (when gnus-sync-newsrc-offsets |
| 183 | (gnus-message 9 "gnus-sync: remaking the newsrc hashtable") | 184 | (gnus-message 9 "gnus-sync: remaking the newsrc hashtable") |
| 184 | (gnus-make-hashtable-from-newsrc-alist)))) | 185 | (gnus-make-hashtable-from-newsrc-alist)))) |
| 185 | 186 | ||