From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 9 Feb 1996 01:38:22 +0000 (+0000)
Subject: (rmail-find-all-files): In a directory, ignore `.' and `..'.
X-Git-Tag: emacs-19.34~1335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c82378204072645f98830b37f286ebfa755d759d;p=emacs.git

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

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