andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Typo fix "hoo4a" -> "hook".

Browse source 
From Ted Zlatanov <tzz@lifelogs.com>.

* gnus-sync.el (gnus-sync-install-hooks): Typo fix.
This commit is contained in:
Katsumi Yamaoka 2010-08-14 22:14:02 +00:00
parent e1025755d2
commit ab731e1cf3
2 changed files with 17 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -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.

26
lisp/gnus/gnus-sync.el
View file

@ -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."