diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-09 01:38:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-09 01:38:22 +0000 |
| commit | 15be984fba8e70f18ec4e02bbed0be274eb97f38 (patch) | |
| tree | ccd8f412d80449926370960862d17f1cf0c0d837 | |
| parent | 61bbedbf3d3b253a6a451094ab1f4bd6a863c73f (diff) | |
| download | emacs-15be984fba8e70f18ec4e02bbed0be274eb97f38.tar.gz | |
(rmail-find-all-files): In a directory, ignore `.' and `..'.
| -rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4ca6c708129..296bf4060e7 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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<)) |