From 8c66734243a43fa357d5e5b912253cc028e9d01e Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 3 Jan 2003 02:00:01 +0000
Subject: [PATCH] Reindent.

---
 lisp/gnus-group.el | 54 +++++++++++++++++++++++-----------------------
 1 file changed, 27 insertions(+), 27 deletions(-)

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 3da30a2e0..da15ca770 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1168,36 +1168,36 @@ if it is a string, only list groups matching REGEXP."
 	      unread (car (gnus-gethash group gnus-newsrc-hashtb)))
 	(if not-in-list
 	    (setq not-in-list (delete group not-in-list)))
-	(and
-	 (gnus-group-prepare-logic
-	  group
-	  (and unread		; This group might be unchecked
-	       (or (not (stringp regexp))
-		   (string-match regexp group))
-	       (<= (setq clevel (gnus-info-level info)) level)
-	       (>= clevel lowest)
-	       (cond
-		((functionp predicate)
-		 (funcall predicate info))
-		(predicate t)		; We list all groups?
-		(t
-		 (or
-		  (if (eq unread t)	; Unactivated?
-		      gnus-group-list-inactive-groups
+	(when (gnus-group-prepare-logic
+	       group
+	       (and unread		; This group might be unchecked
+		    (or (not (stringp regexp))
+			(string-match regexp group))
+		    (<= (setq clevel (gnus-info-level info)) level)
+		    (>= clevel lowest)
+		    (cond
+		     ((functionp predicate)
+		      (funcall predicate info))
+		     (predicate t)	; We list all groups?
+		     (t
+		      (or
+		       (if (eq unread t) ; Unactivated?
+			   gnus-group-list-inactive-groups
 					; We list unactivated
-		    (> unread 0))
+			 (> unread 0))
 					; We list groups with unread articles
-		  (and gnus-list-groups-with-ticked-articles
-		       (cdr (assq 'tick (gnus-info-marks info))))
+		       (and gnus-list-groups-with-ticked-articles
+			    (cdr (assq 'tick (gnus-info-marks info))))
 					; And groups with tickeds
-		  ;; Check for permanent visibility.
-		  (and gnus-permanently-visible-groups
-		       (string-match gnus-permanently-visible-groups group))
-		  (memq 'visible params)
-		  (cdr (assq 'visible params)))))))
-	 (gnus-group-insert-group-line
-	  group (gnus-info-level info)
-	  (gnus-info-marks info) unread (gnus-info-method info)))))
+		       ;; Check for permanent visibility.
+		       (and gnus-permanently-visible-groups
+			    (string-match gnus-permanently-visible-groups
+					  group))
+		       (memq 'visible params)
+		       (cdr (assq 'visible params)))))))
+	  (gnus-group-insert-group-line
+	   group (gnus-info-level info)
+	   (gnus-info-marks info) unread (gnus-info-method info)))))
 
     ;; List dead groups.
     (if (or gnus-group-listed-groups
-- 
2.34.1