[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101082: Typo fix "hoo4a" -> "hook".
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101082: Typo fix "hoo4a" -> "hook". |
Date: |
Sat, 14 Aug 2010 22:14:02 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101082
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2010-08-14 22:14:02 +0000
message:
Typo fix "hoo4a" -> "hook".
From Ted Zlatanov <address@hidden>.
* gnus-sync.el (gnus-sync-install-hooks): Typo fix.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-sync.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-08-14 10:50:20 +0000
+++ b/lisp/gnus/ChangeLog 2010-08-14 22:14:02 +0000
@@ -1,3 +1,9 @@
+2010-08-14 Teodor Zlatanov <address@hidden>
+
+ Typo fix "hoo4a" -> "hook".
+
+ * gnus-sync.el (gnus-sync-install-hooks): Typo fix.
+
2010-08-14 Glenn Morris <address@hidden>
* gnus-sync.el (gnus-sync): Fix defgroup version.
=== modified file 'lisp/gnus/gnus-sync.el'
--- a/lisp/gnus/gnus-sync.el 2010-08-14 10:50:20 +0000
+++ b/lisp/gnus/gnus-sync.el 2010-08-14 22:14:02 +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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101082: Typo fix "hoo4a" -> "hook".,
Katsumi Yamaoka <=