--- gnus-util.el~	2014-03-23 23:08:55.000000000 +0000
+++ gnus-util.el	2014-07-21 23:43:08.029233200 +0000
@@ -1910,7 +1910,7 @@
                    image)))
       image)))
 
-(defun gnus-recursive-directory-files (dir)
+(defun gnus-recursive-directory-files (dir &optional inodes)
   "Return all regular files below DIR."
   (let (files)
     (dolist (file (directory-files dir t))
@@ -1920,7 +1920,11 @@
 	 ((file-regular-p file)
 	  (push file files))
 	 ((file-directory-p file)
-	  (setq files (append (gnus-recursive-directory-files file) files))))))
+	  (let ((inode (nth 10 (file-attributes file))))
+	    (unless (member inode inodes)
+	      (setq files (append (gnus-recursive-directory-files
+				   file (cons inode inodes))
+				  files))))))))
     files))
 
 (defun gnus-list-memq-of-list (elements list)