From cb7e2e8acc54b0ba7aa935f3fbc0b006d384c79b Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 2 Aug 2000 13:58:29 +0000 Subject: [PATCH] Should not require cl when run. --- lisp/ChangeLog | 5 +++++ lisp/gnus-group.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * gnus-group.el (gnus-group-iterate): Uncompiled function should + not use pop. + 2000-07-19 Dave Love * 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 -- 2.34.1