From: Glenn Morris <rgm@gnu.org>
Date: Sat, 13 Oct 2007 03:03:54 +0000 (+0000)
Subject: (feedmail-run-the-queue)
X-Git-Tag: emacs-pretest-23.0.90~10367
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d3cfc902abe7edcd64f4d8d48b99936e25f6e70;p=emacs.git

(feedmail-run-the-queue)
(feedmail-look-at-queue-directory): Use mapc rather than mapcar.
---

diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index b8d42debe6f..e75387f48ac 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -1588,7 +1588,7 @@ backup file names and the like)."
 	(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 @@ the counts."
   (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