From ab731e1cf3567059a906879c4e53306fa153c4c8 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sat, 14 Aug 2010 22:14:02 +0000 Subject: [PATCH] Typo fix "hoo4a" -> "hook". From Ted Zlatanov . * gnus-sync.el (gnus-sync-install-hooks): Typo fix. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/gnus-sync.el | 26 +++++++++++--------------- 2 files changed, 17 insertions(+), 15 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index eef77da20ab..5fa2c87e331 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2010-08-14 Teodor Zlatanov + + Typo fix "hoo4a" -> "hook". + + * gnus-sync.el (gnus-sync-install-hooks): Typo fix. + 2010-08-14 Glenn Morris * gnus-sync.el (gnus-sync): Fix defgroup version. diff --git a/lisp/gnus/gnus-sync.el b/lisp/gnus/gnus-sync.el index e68b3d82dbd..ce43bbcf849 100644 --- a/lisp/gnus/gnus-sync.el +++ b/lisp/gnus/gnus-sync.el @@ -95,20 +95,16 @@ synchronized, I believe). Also see `gnus-variable-list'." ;; 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 @@ synchronized, I believe). Also see `gnus-variable-list'." (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." -- 2.39.2