(gnus-group-set-current-level): Fix fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b567738..9837edc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-group.el (gnus-group-set-current-level): Signal errors on
        topic lines.
+       (gnus-group-set-current-level): Fix fix.
 
 2003-12-31  Jeremy Maitin-Shepard  <jbms@attbi.com>
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 3b5fbb3..5aa619c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3218,7 +3218,7 @@ Uses the process/prefix convention."
    (list
     current-prefix-arg
     (progn
-      (unless (gnus-group-group-name)
+      (unless (gnus-group-process-prefix current-prefix-arg)
        (error "No group on the current line"))
       (string-to-int
        (let ((s (read-string