From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Fri, 13 Aug 2010 10:39:16 +0000 (+0000)
Subject: Add new gnus-sync.el library.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~313
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=771549612082c4b6a154850287ef7bafe5b563c8;p=emacs.git

Add new gnus-sync.el library.
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.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 884a454925f..1c8b9173480 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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>
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index db10440116b..e3af088278c 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -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.
 
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index b8a1c266c93..93cc1f0a542 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -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)