From: yamaoka <yamaoka>
Date: Tue, 30 Nov 1999 06:17:25 +0000 (+0000)
Subject: (gnus-group-iterate): Use `car' and `cdr' instead of `pop'.
X-Git-Tag: t-gnus-6_13_3-07~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=60619e73bb60914e11e00b7317dba43a7cc17b29;p=elisp%2Fgnus.git-

(gnus-group-iterate): Use `car' and `cdr' instead of `pop'.
(gnus-useful-groups): Use `or' instead of `unless'.
---

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