[Emacs-diffs] /srv/bzr/emacs/trunk r101353: (nnmh-request-list-1): Bind `file'.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101353
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 04:09:07 +0000
message:
  (nnmh-request-list-1): Bind `file'.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnmh.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-05 04:01:41 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-05 04:09:07 +0000
@@ -1,5 +1,7 @@
 2010-09-05  Katsumi Yamaoka  <address@hidden>
 
+       * 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.

=== modified file 'lisp/gnus/nnmh.el'
--- a/lisp/gnus/nnmh.el 2010-09-05 00:44:53 +0000
+++ b/lisp/gnus/nnmh.el 2010-09-05 04:09:07 +0000
@@ -209,7 +209,7 @@
   ;; 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)