From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Fri, 5 Sep 2003 13:04:29 +0000 (+0000)
Subject: (gnus-registry-split-fancy-with-parent): yet
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=c7b3c3d80c7a296e63180251bd7574fbaab3d12d;hp=0934016eaa49a051b9ff5ccc2bb0ec852e2da0fd;p=gnus

(gnus-registry-split-fancy-with-parent): yet
another error *sigh*
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa274e2a6..3aa8db540 100644
--- 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 35cd2a77b..cb48b89ed 100644
--- 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.