# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192244634 0
# Node ID d473c33347de6cc11969b36b3d09884f55e407d7
# Parent  054956601c9e569e3cf78c5096b1600c767b780a
(feedmail-run-the-queue)
(feedmail-look-at-queue-directory): Use mapc rather than mapcar.

diff -r 054956601c9e -r d473c33347de lisp/mail/feedmail.el
--- a/lisp/mail/feedmail.el	Sat Oct 13 03:03:35 2007 +0000
+++ b/lisp/mail/feedmail.el	Sat Oct 13 03:03:54 2007 +0000
@@ -1588,7 +1588,7 @@
 	(setq list-of-possible-fqms (directory-files feedmail-queue-directory t))
 	(if feedmail-queue-run-orderer
 	    (setq list-of-possible-fqms (funcall feedmail-queue-run-orderer list-of-possible-fqms)))
-	(mapcar
+	(mapc
 	 '(lambda (blobby)
 	    (setq maybe-file (expand-file-name blobby feedmail-queue-directory))
 	    (cond
@@ -1835,7 +1835,7 @@
   (let ((q-cnt 0) (q-oth 0) (high-water 0) (blobbet))
     ;; iterate, counting things we find along the way in the directory
     (if (file-directory-p queue-directory)
-	(mapcar
+	(mapc
 	 '(lambda (blobby)
 	    (cond
 	     ((file-directory-p blobby) nil) ; don't care about subdirs