From 60619e73bb60914e11e00b7317dba43a7cc17b29 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 30 Nov 1999 06:17:25 +0000 Subject: [PATCH] (gnus-group-iterate): Use `car' and `cdr' instead of `pop'. (gnus-useful-groups): Use `or' instead of `unless'. --- lisp/gnus-group.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 952230b..85846ac 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -276,8 +276,8 @@ variable." (eval `(nndoc-address ,(let ((file (nnheader-find-etc-directory "gnus-tut.txt" t))) - (unless file - (error "Couldn't find doc group")) + (or file + (error "Couldn't find doc group")) file)))))) "*Alist of useful group-server pairs." :group 'gnus-group-listing @@ -1482,7 +1482,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 -- 1.7.10.4