From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Wed, 2 Aug 2000 13:58:29 +0000 (+0000)
Subject: Should not require cl when run.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=cb7e2e8acc54b0ba7aa935f3fbc0b006d384c79b;p=gnus

Should not require cl when run.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80672439e..232ee727b 100644
--- 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 1f711b383..9e233432b 100644
--- 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