# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 823829902 0
# Node ID 5322690a5a44efac6afa97585b8dbfd9f86b2f56
# Parent  10110e5a680a624506338aed0d875ef3a8261124
(rmail-find-all-files): In a directory, ignore `.' and `..'.

diff -r 10110e5a680a -r 5322690a5a44 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Feb 09 01:37:35 1996 +0000
+++ b/lisp/mail/rmail.el	Fri Feb 09 01:38:22 1996 +0000
@@ -788,9 +788,10 @@
 	(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<))