[gnus git] branch master updated: n0-15-77-g1c14939 =1= * gnus-registry.el (gnus-registry--split-fancy-with-parent-internal): Fix loop bugs.

       via  1c149399d21d6a36c2ccf0b2e28addc52a4f926d (commit)
      from  397ed49906b95bdd86eb3d58f4aaa85e8c1d8a66 (commit)


- Log -----------------------------------------------------------------
commit 1c149399d21d6a36c2ccf0b2e28addc52a4f926d
Author: Ted Zlatanov <[email protected]>
Date:   Wed Apr 20 15:40:19 2011 -0500

    * gnus-registry.el (gnus-registry--split-fancy-with-parent-internal): Fix loop bugs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 885e0ed..f23e8a3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-20  Teodor Zlatanov  <[email protected]>
+
+	* gnus-registry.el
+	(gnus-registry--split-fancy-with-parent-internal): Fix loop bugs.
+
 2011-04-20  David Engster  <[email protected]>
 
 	* tests/gnustest-nntp.el: New file for simple NNTP testing.
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 009786d..3dbffd9 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -442,8 +442,10 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
         (gnus-message 9 "%s is looking up %s" log-agent reference)
         (loop for group in (gnus-registry-get-id-key reference 'group)
               when (gnus-registry-follow-group-p group)
-              do (gnus-message 7 "%s traced %s to %s" log-agent reference group)
-              do (push group found)))
+              do
+              (progn
+                (gnus-message 7 "%s traced %s to %s" log-agent reference group)
+                (push group found))))
       ;; filter the found groups and return them
       ;; the found groups are the full groups
       (setq found (gnus-registry-post-process-groups
@@ -468,7 +470,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                          (if gnus-registry-track-extra 7 9)
                          "%s (extra tracking) traced subject '%s' to %s"
                          log-agent subject group)
-                     collect group))
+                    and collect group))
          ;; filter the found groups and return them
          ;; the found groups are NOT the full groups
          (setq found (gnus-registry-post-process-groups
@@ -495,7 +497,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                          (if gnus-registry-track-extra 7 9)
                          "%s (extra tracking) traced sender '%s' to %s"
                          log-agent sender group)
-                     collect group)))
+                     and collect group)))
 
        ;; filter the found groups and return them
        ;; the found groups are NOT the full groups
@@ -525,7 +527,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                              (if gnus-registry-track-extra 7 9)
                              "%s (extra tracking) traced recipient '%s' to %s"
                              log-agent recp group)
-                         collect group)))))
+                        and collect group)))))
 
        ;; filter the found groups and return them
        ;; the found groups are NOT the full groups

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog        |    5 +++++
 lisp/gnus-registry.el |   12 +++++++-----
 2 files changed, 12 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project