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

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<))