Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3d3cfc90
Commit
3d3cfc90
authored
Oct 13, 2007
by
Glenn Morris
Browse files
(feedmail-run-the-queue)
(feedmail-look-at-queue-directory): Use mapc rather than mapcar.
parent
cfedf6cc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
lisp/mail/feedmail.el
lisp/mail/feedmail.el
+2
-2
No files found.
lisp/mail/feedmail.el
View file @
3d3cfc90
...
...
@@ -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
)))
(
mapc
ar
(
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
)
(
mapc
ar
(
mapc
'
(
lambda
(
blobby
)
(
cond
((
file-directory-p
blobby
)
nil
)
; don't care about subdirs
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment