[Emacs-diffs] Changes to emacs/lisp/mail/feedmail.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/10/13 03:03:54

Index: feedmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/feedmail.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- feedmail.el 24 Feb 2007 17:23:27 -0000      1.29
+++ feedmail.el 13 Oct 2007 03:03:54 -0000      1.30
@@ -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