Mercurial > emacs
changeset 85232:d473c33347de
(feedmail-run-the-queue)
(feedmail-look-at-queue-directory): Use mapc rather than mapcar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 13 Oct 2007 03:03:54 +0000 |
| parents | 054956601c9e |
| children | 977fdc85afd3 |
| files | lisp/mail/feedmail.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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