(gnus-group-insert-group-line): Fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bd54d4..a4f1d2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-06  Francis Litterio <franl-removethis@world.omitthis.std.com>
+
+       * gnus-group.el (gnus-group-insert-group-line): Fix.
+
 2000-09-04  Dave Love  <fx@gnu.org>
 
        * mm-decode.el (mime-display) <defgroup>: Add `multimedia' group.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 716f0c6..c4ee639 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1201,8 +1201,8 @@ If REGEXP, only list groups matching REGEXP."
                  gnus-level ,gnus-tmp-level))
     (forward-line -1)
     (when (inline (gnus-visual-p 'group-highlight 'highlight))
-      (gnus-run-hooks 'gnus-group-update-hook)
-      (forward-line))
+      (gnus-run-hooks 'gnus-group-update-hook))
+    (forward-line)
     ;; Allow XEmacs to remove front-sticky text properties.
     (gnus-group-remove-excess-properties)))