mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Add new gnus-sync.el library.

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

* gnus-registry.el (gnus-registry-follow-group-p): Use `gnus-grep-in-list'.

* gnus-util.el (gnus-grep-in-list): Moved from gnus-registry.el and
renamed from `gnus-registry-grep-in-list'.

* gnus-sync.el: New library for synchronization of marks.
This commit is contained in:
Katsumi Yamaoka 2010-08-13 10:39:16 +00:00
parent c4b1c354d3
commit 7715496120
3 changed files with 17 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View file

@ -1,5 +1,12 @@
2010-08-12 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el: New library for synchronization of marks.
* gnus-util.el (gnus-grep-in-list): Moved from gnus-registry.el and
renamed from `gnus-registry-grep-in-list'.
* gnus-registry.el (gnus-registry-follow-group-p): Use `gnus-grep-in-list'.
* gnus-start.el (gnus-start-draft-setup): Make it interactive.
2010-08-06 Katsumi Yamaoka <yamaoka@jpl.org>

12
lisp/gnus/gnus-registry.el
View file

@ -661,10 +661,10 @@ necessary."
"Determines if a group name should be followed.
Consults `gnus-registry-unfollowed-groups' and
`nnmail-split-fancy-with-parent-ignore-groups'."
(not (or (gnus-registry-grep-in-list
(not (or (gnus-grep-in-list
group
gnus-registry-unfollowed-groups)
(gnus-registry-grep-in-list
(gnus-grep-in-list
group
nnmail-split-fancy-with-parent-ignore-groups))))
@ -745,14 +745,6 @@ Consults `gnus-registry-unfollowed-groups' and
(assoc article (gnus-data-list nil)))))
nil))
(defun gnus-registry-grep-in-list (word list)
"Find if a WORD matches any regular expression in the given LIST."
(when (and word list)
(catch 'found
(dolist (r list)
(when (string-match r word)
(throw 'found r))))))
(defun gnus-registry-do-marks (type function)
"For each known mark, call FUNCTION for each cell of type TYPE.

8
lisp/gnus/gnus-util.el
View file

@ -1297,6 +1297,14 @@ Return the modified alist."
(setq alist (delq entry alist)))
alist)))
(defun gnus-grep-in-list (word list)
"Find if a WORD matches any regular expression in the given LIST."
(when (and word list)
(catch 'found
(dolist (r list)
(when (string-match r word)
(throw 'found r))))))
(defmacro gnus-pull (key alist &optional assoc-p)
"Modify ALIST to be without KEY."
(unless (symbolp alist)