# HG changeset patch # User Katsumi Yamaoka # Date 1281697101 0 # Node ID 9c65ce5bc0dbd4ea6a5f1d46d538e2bb5ae5780c # Parent f7cd57edb2cac00417ec574cc1f1817b7b0d854e Minor bug fixes for gnus-sync.el. From Ted Zlatanov . * gnus-sync.el (gnus-sync-unload-hook, gnus-sync-install-hooks): Don't read the sync on get-new-news. diff -r f7cd57edb2ca -r 9c65ce5bc0db lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Fri Aug 13 10:54:05 2010 +0000 +++ b/lisp/gnus/ChangeLog Fri Aug 13 10:58:21 2010 +0000 @@ -2,6 +2,9 @@ Minor bug fixes for gnus-sync.el. + * gnus-sync.el (gnus-sync-unload-hook, gnus-sync-install-hooks): Don't + read the sync on get-new-news. + * gnus-sync.el (gnus-sync-save): Define `variable' so the compiler is quiet. diff -r f7cd57edb2ca -r 9c65ce5bc0db lisp/gnus/gnus-sync.el --- a/lisp/gnus/gnus-sync.el Fri Aug 13 10:54:05 2010 +0000 +++ b/lisp/gnus/gnus-sync.el Fri Aug 13 10:58:21 2010 +0000 @@ -195,14 +195,14 @@ (defun gnus-sync-install-hooks () "Install the sync hooks." (interactive) - (add-hook 'gnus-get-new-news-hook 'gnus-sync-read) + ;; (add-hook 'gnus-get-new-news-hook 'gnus-sync-read) (add-hook 'gnus-save-newsrc-hook 'gnus-sync-save) - (add-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read)) + (add-hook 'gnus-read-newsrc-el-hoo4a 'gnus-sync-read)) (defun gnus-sync-unload-hook () "Uninstall the sync hooks." (interactive) - (remove-hook 'gnus-get-new-news-hook 'gnus-sync-read) + ;; (remove-hook 'gnus-get-new-news-hook 'gnus-sync-read) (remove-hook 'gnus-save-newsrc-hook 'gnus-sync-save) (remove-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read))