Mercurial > emacs
changeset 109783:43f98127e0f3
Typo fix "hoo4a" -> "hook".
From Ted Zlatanov <tzz@lifelogs.com>.
* gnus-sync.el (gnus-sync-install-hooks): Typo fix.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sat, 14 Aug 2010 22:14:02 +0000 |
| parents | fe1680d2025e |
| children | 2abe46caa971 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-sync.el |
| diffstat | 2 files changed, 17 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Aug 14 17:13:49 2010 -0400 +++ b/lisp/gnus/ChangeLog Sat Aug 14 22:14:02 2010 +0000 @@ -1,3 +1,9 @@ +2010-08-14 Teodor Zlatanov <tzz@lifelogs.com> + + Typo fix "hoo4a" -> "hook". + + * gnus-sync.el (gnus-sync-install-hooks): Typo fix. + 2010-08-14 Glenn Morris <rgm@gnu.org> * gnus-sync.el (gnus-sync): Fix defgroup version.
--- a/lisp/gnus/gnus-sync.el Sat Aug 14 17:13:49 2010 -0400 +++ b/lisp/gnus/gnus-sync.el Sat Aug 14 22:14:02 2010 +0000 @@ -95,20 +95,16 @@ ;; populate gnus-sync-newsrc-loader from all but the first dummy ;; entry in gnus-newsrc-alist whose group matches any of the ;; gnus-sync-newsrc-groups - (let* ((loader - (loop for entry in (cdr gnus-newsrc-alist) - when (gnus-grep-in-list - (car entry) ;the group name - gnus-sync-newsrc-groups) - collect (cons (car entry) - (mapcar (lambda (offset) - (cons offset (nth offset entry))) - gnus-sync-newsrc-offsets)))) - (gnus-sync-newsrc-loader - (nunion loader - (set-difference gnus-sync-newsrc-loader loader :key 'car) - :key 'car))) - + ;; TODO: keep the old contents for groups we don't have! + (let ((gnus-sync-newsrc-loader + (loop for entry in (cdr gnus-newsrc-alist) + when (gnus-grep-in-list + (car entry) ;the group name + gnus-sync-newsrc-groups) + collect (cons (car entry) + (mapcar (lambda (offset) + (cons offset (nth offset entry))) + gnus-sync-newsrc-offsets))))) (with-temp-file gnus-sync-backend (progn (let ((coding-system-for-write gnus-ding-file-coding-system) @@ -216,7 +212,7 @@ (interactive) ;; (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-hoo4a 'gnus-sync-read)) + (add-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read)) (defun gnus-sync-unload-hook () "Uninstall the sync hooks."