diff options
Diffstat (limited to 'lisp/mail/rmail.el')
| -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<)) |