Commit 732b9594 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

nnmh.el (nnmh-request-list-1): Work on MS Windows.

parent bb617717
2011-06-30 Katsumi Yamaoka <yamaoka@jpl.org>
* nnmh.el (nnmh-request-list-1): Work on MS Windows.
2011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* message.el (message-point-in-header-p): Tweak the function to default
......
......@@ -210,7 +210,9 @@ as unread by Gnus.")
(max 0)
min rdir num subdirectoriesp file)
;; Recurse down directories.
(setq subdirectoriesp (> (nth 1 (file-attributes dir)) 2))
(setq subdirectoriesp
;; nth 1 of file-attributes always 1 on MS Windows :(
(/= (nth 1 (file-attributes (file-truename dir))) 2))
(dolist (rdir files)
(if (or (not subdirectoriesp)
(file-regular-p rdir))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment