diff options
| author | Miles Bader <miles@gnu.org> | 2007-10-13 05:53:03 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-10-13 05:53:03 +0000 |
| commit | 2b42d458a45eaf9767da327f76a40a1cf9c77c23 (patch) | |
| tree | f896828e65199d043ea7ab366fffea8bd315a986 /lisp/mail/feedmail.el | |
| parent | 3e88ae627ef8d827b3f79e4e6f14aaad7adfe322 (diff) | |
| parent | e2cfa9afa691fb8b7a554cb685c16ff3d4e1ff2b (diff) | |
| download | emacs-2b42d458a45eaf9767da327f76a40a1cf9c77c23.tar.gz | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 880-885)
- Remove RCS keywords from doc/misc/cc-mode.texi
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-264
Diffstat (limited to 'lisp/mail/feedmail.el')
| -rw-r--r-- | lisp/mail/feedmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |