--- ../lisp.cvs_ref/gnus-start.el	Tue Mar  9 01:07:19 2004
+++ gnus-start.el	Thu Mar 11 18:41:40 2004
@@ -1673,6 +1673,7 @@
 	       (t
 		'foreign)))
 	(push (cons method method-type) type-cache))
+      (message "Group %s is %s" group method-type)
       (if (and method
 	       (eq method-type 'foreign))
 	  ;; These groups are foreign.  Check the level.