Should not require cl when run.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8067243..232ee72 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-07 09:37:01  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-group.el (gnus-group-iterate): Uncompiled function should 
+       not use pop.
+
 2000-07-19  Dave Love  <fx@gnu.org>
 
        * gnus-ems.el: Defalias some dummy funcs to `ignore'.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 1f711b3..9e23343 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1581,7 +1581,9 @@ and with point over the group in question."
        (let ((,groups (gnus-group-process-prefix arg))
              (,window (selected-window))
              ,group)
-         (while (setq ,group (pop ,groups))
+         (while ,groups
+           (setq ,group (car ,groups)
+                 ,groups (cdr ,groups))
            (select-window ,window)
            (gnus-group-remove-mark ,group)
            (save-selected-window