X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-registry.el;h=680a3b294a27fa8b8ec1be9d45218282d5037189;hb=064c97455e6e3edf10018a4c9b812d43194f67af;hp=ce76f7fd033fc0182d03866969f532e67b9adbc0;hpb=33da5baf94e156abfb77c9a73ebb8e1d0be78a6d;p=gnus

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index ce76f7fd0..680a3b294 100644
--- 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))))