[Emacs-diffs] /srv/bzr/emacs/trunk r101063: Add new gnus-sync.el library.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101063
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-08-13 10:39:16 +0000
message:
  Add new gnus-sync.el library.
  From Ted Zlatanov <address@hidden>.
  
  * 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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-registry.el
  lisp/gnus/gnus-util.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-08-13 10:32:35 +0000
+++ b/lisp/gnus/ChangeLog       2010-08-13 10:39:16 +0000
@@ -1,5 +1,12 @@
 2010-08-12  Teodor Zlatanov  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el        2010-03-23 07:37:09 +0000
+++ b/lisp/gnus/gnus-registry.el        2010-08-13 10:39:16 +0000
@@ -661,10 +661,10 @@
   "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 @@
                          (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.
 

=== modified file 'lisp/gnus/gnus-util.el'
--- a/lisp/gnus/gnus-util.el    2010-06-12 17:26:40 +0000
+++ b/lisp/gnus/gnus-util.el    2010-08-13 10:39:16 +0000
@@ -1297,6 +1297,14 @@
        (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)