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

another error *sigh*

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa274e2..3aa8db5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-09-05  Teodor Zlatanov  <tzz@lifelogs.com>
 
+       * gnus-registry.el (gnus-registry-split-fancy-with-parent): yet
+       another error *sigh*
+
        * gnus-registry.el (gnus-registry-fetch-extra-entry): don't use
        puthash unless gnus-registry-entry-caching is on
        (gnus-registry-split-fancy-with-parent): misplaced parenthesis

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 35cd2a7..cb48b89 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -386,12 +386,11 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                    subject
                    (if res res "nil")))))
             gnus-registry-hashtb)))))
-      (debug res)
-      (gnus-message
-       5 
-       "gnus-registry-split-fancy-with-parent traced %s to group %s"
-       refstr (if res res "nil"))
-      res))
+    (gnus-message
+     5 
+     "gnus-registry-split-fancy-with-parent traced %s to group %s"
+     refstr (if res res "nil"))
+    res))
 
 (defun gnus-registry-register-message-ids ()
   "Register the Message-ID of every article in the group"
@@ -446,9 +445,10 @@ Returns the first place where the trail finds a nonstring."
        (gethash id entry-cache)
       ;; else, if there is no caching possible...
       (let ((trail (gethash id gnus-registry-hashtb)))
-       (dolist (crumb trail)
-         (unless (stringp crumb)
-           (return (gnus-registry-fetch-extra-entry crumb entry id))))))))
+       (when (listp trail)
+         (dolist (crumb trail)
+           (unless (stringp crumb)
+             (return (gnus-registry-fetch-extra-entry crumb entry id)))))))))
 
 (defun gnus-registry-fetch-extra-entry (alist &optional entry id)
   "Get the extra data of a message, or a specific entry in it.