# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1281824042 0
# Node ID 43f98127e0f38f465de6b3cfb396345a4689c4ae
# Parent  fe1680d2025eb63987b96a0ed678d0748852b153
Typo fix "hoo4a" -> "hook".
From Ted Zlatanov <tzz@lifelogs.com>.

* gnus-sync.el (gnus-sync-install-hooks): Typo fix.

diff -r fe1680d2025e -r 43f98127e0f3 lisp/gnus/ChangeLog
--- 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.
diff -r fe1680d2025e -r 43f98127e0f3 lisp/gnus/gnus-sync.el
--- 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."