projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Better seed support for (random)
[gnus]
/
lisp
/
nnmh.el
diff --git
a/lisp/nnmh.el
b/lisp/nnmh.el
index
984144e
..
960b15f
100644
(file)
--- a/
lisp/nnmh.el
+++ b/
lisp/nnmh.el
@@
-1,7
+1,6
@@
;;; nnmh.el --- mhspool access for Gnus
;;; nnmh.el --- mhspool access for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
-;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1995-2012 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
@@
-211,7
+210,9
@@
as unread by Gnus.")
(max 0)
min rdir num subdirectoriesp file)
;; Recurse down directories.
(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))
(dolist (rdir files)
(if (or (not subdirectoriesp)
(file-regular-p rdir))