From c82378204072645f98830b37f286ebfa755d759d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 9 Feb 1996 01:38:22 +0000 Subject: [PATCH] (rmail-find-all-files): In a directory, ignore `.' and `..'. --- lisp/mail/rmail.el | 7 ++++--- 1 file 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<)) -- 2.39.2