* files.el (file-expand-wildcards): Ignore non-readable

sub-directories while trying to find matches instead of signalling
an error (bug#6297).

lisp/ChangeLog

 2011-07-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* files.el (file-expand-wildcards): Ignore non-readable
+	sub-directories while trying to find matches instead of signalling
+	an error (bug#6297).
+
 	* man.el (Man-reference-regexp): Allow matching possible
 	word-wrapped references (bug#6289).
 

lisp/files.el

@@ -5560,7 +5560,8 @@ default directory.  However, if FULL is non-nil, they are absolute."
 	   contents)
       (while dirs
 	(when (or (null (car dirs))	; Possible if DIRPART is not wild.
-		  (file-directory-p (directory-file-name (car dirs))))
+		  (and (file-directory-p (directory-file-name (car dirs)))
+		       (file-readable-p (car dirs))))
 	  (let ((this-dir-contents
 		 ;; Filter out "." and ".."
 		 (delq nil