(gnus-registry-split-fancy-with-parent): added

diagnostic message
(gnus-registry-grep-in-list): don't run when word is nil

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d94727..8afb9d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-04-30  Teodor Zlatanov  <tzz@bwh.harvard.edu>
+
+       * gnus-registry.el (gnus-registry-split-fancy-with-parent): added
+       diagnostic message
+       (gnus-registry-grep-in-list): don't run when word is nil
+
 2003-04-30  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@gmx.net>
 
        * gnus-delay.el (gnus-delay-article): Call

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index e5aed7c..70bb350 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -139,15 +139,18 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                           nnmail-split-fancy-with-parent-ignore-groups))
                  (setq res nil)))
              references)
+      (gnus-message 5 "gnus-registry-split-fancy-with-parent traced %s to group %s"
+                   refstr (if res res "nil"))
       res)))
 
 (defun gnus-registry-grep-in-list (word list)
-  (memq nil
-       (mapcar 'not
-        (mapcar 
-         (lambda (x)
-           (string-match x word))
-         list))))
+  (when word
+    (memq nil
+         (mapcar 'not
+                 (mapcar 
+                  (lambda (x)
+                    (string-match x word))
+                  list)))))
 
 (defun gnus-registry-fetch-group (id)
   "Get the group of a message, based on the message ID.