Fix Gnus registry sender splitting and logging.

* gnus-registry.el (gnus-registry--split-fancy-with-parent-internal):
Fix logic bug.
(gnus-registry-post-process-groups): Fix logging of no results and
quote sender and subject.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b53c38a..9193af8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-04-12  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-registry.el (gnus-registry--split-fancy-with-parent-internal):
+       Fix logic bug.
+       (gnus-registry-post-process-groups): Fix logging of no results and
+       quote sender and subject.
+
 2011-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * proto-stream.el (proto-stream-open-starttls): Only do opportunistic

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index ce76f7f..680a3b2 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -428,9 +428,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
      (when (and (null found)
                 (memq 'sender gnus-registry-track-extra)
                 sender
-                (gnus-grep-in-list
-                 sender
-                 gnus-registry-unfollowed-addresses))
+                (not (gnus-grep-in-list
+                      sender
+                      gnus-registry-unfollowed-addresses)))
        (let ((groups (apply
                       'append
                       (mapcar
@@ -564,12 +564,12 @@ possible.  Uses `gnus-registry-split-strategy'."
      ((null out)
       (gnus-message
        5
-       "%s: no matches for %s %s."
-       log-agent out mode key)
+       "%s: no matches for %s '%s'."
+       log-agent mode key)
       nil)
      (t (gnus-message
          5
-         "%s: too many extra matches (%s) for %s %s.  Returning none."
+         "%s: too many extra matches (%s) for %s '%s'.  Returning none."
          log-agent out mode key)
         nil))))