mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 09:43:26 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-find-all-files): In a directory, ignore .' and ..'.

Browse source
This commit is contained in:
Richard M. Stallman 1996-02-09 01:38:22 +00:00
parent 7b6540dd1b
commit c823782040
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmail.el
View file

@ -788,9 +788,10 @@ original copy."
(while files
(setq file (car files))
(setq files (cdr files))
(setq ret (nconc
(rmail-find-all-files file)
ret)))
(or (member (file-name-nondirectory start) '("." ".."))
(setq ret (nconc
(rmail-find-all-files file)
ret))))
;; Sort here instead of in directory-files
;; because this list is usually much shorter.
(sort ret 'string<))