From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Sun, 5 Sep 2010 04:06:53 +0000 (+0000)
Subject: (nnmh-request-list-1): Bind `file'.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=e95972075ac7a7c7aeb23b5c2edd0dfe60ac67c7;p=gnus

(nnmh-request-list-1): Bind `file'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad613044e..8ae7a8087 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-09-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* nnmh.el (nnmh-request-list-1): Bind `file'.
+
 	* pop3.el (pop3-set-process-query-on-exit-flag): New function that's an
 	alias to set-process-query-on-exit-flag or process-kill-without-query.
 	(pop3-open-server): Use it.
diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 17311b968..131861e03 100644
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -209,7 +209,7 @@ as unread by Gnus.")
   ;; Recurse down all directories.
   (let ((files (nnheader-directory-files dir t nil t))
 	(max 0)
-	min rdir num subdirectoriesp)
+	min rdir num subdirectoriesp file)
     ;; Recurse down directories.
     (setq subdirectoriesp (> (nth 1 (file-attributes dir)) 2))
     (dolist (rdir files)