* gnus.el (gnus-shutdown): Use dolist.

* gnus-undo.el (gnus-undo): Use mapc.

* nnrss.el (nnrss-generate-active): do.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27b4141..99eb5a0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2004-09-26  Jesper Harder  <harder@ifa.au.dk>
 
+       * gnus.el (gnus-shutdown): Use dolist.
+
+       * gnus-undo.el (gnus-undo): Use mapc.
+
+       * nnrss.el (nnrss-generate-active): do.
+
        * message.el (message-cite-original-without-signature)
        (message-cite-original): Use mapc.
        (message-do-actions, message-make-forward-subject): Use dolist.

diff --git a/lisp/gnus-undo.el b/lisp/gnus-undo.el
index 70550c1..f4eda2c 100644 (file)
--- a/lisp/gnus-undo.el
+++ b/lisp/gnus-undo.el
@@ -186,8 +186,7 @@ A numeric argument serves as a repeat count."
       (error "Nothing further to undo"))
     (setq gnus-undo-actions (delq action gnus-undo-actions))
     (setq gnus-undo-boundary t)
-    (while action
-      (funcall (pop action)))))
+    (mapc 'funcall action)))
 
 (provide 'gnus-undo)
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 6809c43..f88c2d8 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3002,11 +3002,9 @@ Return nil if not defined."
 
 (defun gnus-shutdown (symbol)
   "Shut down everything that waits for SYMBOL."
-  (let ((alist gnus-shutdown-alist)
-       entry)
-    (while (setq entry (pop alist))
-      (when (memq symbol (cdr entry))
-       (funcall (car entry))))))
+  (dolist (entry gnus-shutdown-alist)
+    (when (memq symbol (cdr entry))
+      (funcall (car entry)))))
 
 \f
 ;;;

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 69c81cd..4c22b5a 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -290,9 +290,8 @@ ARTICLE is the article number of the current headline.")
 (defvar nnrss-extra-categories '(nnrss-snarf-moreover-categories))
 
 (defun nnrss-generate-active ()
-  (if (y-or-n-p "Fetch extra categories? ")
-      (dolist (func nnrss-extra-categories)
-       (funcall func)))
+  (when (y-or-n-p "Fetch extra categories? ")
+    (mapc 'funcall nnrss-extra-categories))
   (save-excursion
     (set-buffer nntp-server-buffer)
     (erase-buffer)