(save-excursion (nnmail-find-file file))
(string-to-number (file-name-nondirectory file)))))
-(deffoo nnmh-request-group (group &optional server dont-check)
+(deffoo nnmh-request-group (group &optional server dont-check info)
(nnheader-init-server-buffer)
(nnmh-possibly-change-directory group server)
(let ((pathname (nnmail-group-pathname group nnmh-directory))
;; 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)
?/ ?.)
nnmail-pathname-coding-system)))
(or max 0)
- (or min 0))))))
+ (or min 1))))))
t)
(deffoo nnmh-request-newgroups (date &optional server)
&optional server force)
(nnmh-possibly-change-directory newsgroup server)
(let ((is-old t)
- (nnmail-expiry-target
- (or (gnus-group-find-parameter newsgroup 'expiry-target t)
- nnmail-expiry-target))
article rest mod-time)
(nnheader-init-server-buffer)