--- gnus-group.el.orig	2005-04-13 20:43:59.300374438 -0400
+++ gnus-group.el	2005-04-13 20:54:52.185167853 -0400
@@ -255,6 +255,10 @@
   :group 'gnus-group-listing
   :type 'function)
 
+(defvar gnus-group-prepare-function-predicate '(lambda (info) (gnus-distraction-prevention-check info))
+  "Predicate to use in call to gnus-group-prepare-function.
+Defaults to '(lambda (info) (gnus-distraction-prevention-check info))")
+
 (defcustom gnus-group-prepare-hook nil
   "Hook called after the group buffer has been generated.
 If you want to modify the group buffer, you can use this hook."
@@ -1156,9 +1160,12 @@
 	(props (text-properties-at (point-at-bol)))
 	(empty (= (point-min) (point-max)))
 	(group (gnus-group-group-name))
+        (unread-or-predicate (if (functionp gnus-group-prepare-function-predicate)
+                                 gnus-group-prepare-function-predicate
+                               unread))
 	number)
     (set-buffer gnus-group-buffer)
-    (setq number (funcall gnus-group-prepare-function level unread lowest))
+    (setq number (funcall gnus-group-prepare-function level unread-or-predicate lowest))
     (when (or (and (numberp number)
 		   (zerop number))
 	      (zerop (buffer-size)))