150 |
(file-exists-p file) |
(file-exists-p file) |
151 |
(not (file-directory-p file)) |
(not (file-directory-p file)) |
152 |
(save-excursion (nnmail-find-file file)) |
(save-excursion (nnmail-find-file file)) |
153 |
(string-to-int (file-name-nondirectory file))))) |
(string-to-number (file-name-nondirectory file))))) |
154 |
|
|
155 |
(deffoo nnmh-request-group (group &optional server dont-check) |
(deffoo nnmh-request-group (group &optional server dont-check) |
156 |
(nnheader-init-server-buffer) |
(nnheader-init-server-buffer) |
176 |
(nnheader-re-read-dir pathname) |
(nnheader-re-read-dir pathname) |
177 |
(setq dir |
(setq dir |
178 |
(sort |
(sort |
179 |
(mapcar (lambda (name) (string-to-int name)) |
(mapcar (lambda (name) (string-to-number name)) |
180 |
(directory-files pathname nil "^[0-9]+$" t)) |
(directory-files pathname nil "^[0-9]+$" t)) |
181 |
'<)) |
'<)) |
182 |
(cond |
(cond |
224 |
;; For each directory, generate an active file line. |
;; For each directory, generate an active file line. |
225 |
(unless (string= (expand-file-name nnmh-toplev) dir) |
(unless (string= (expand-file-name nnmh-toplev) dir) |
226 |
(let ((files (mapcar |
(let ((files (mapcar |
227 |
(lambda (name) (string-to-int name)) |
(lambda (name) (string-to-number name)) |
228 |
(directory-files dir nil "^[0-9]+$" t)))) |
(directory-files dir nil "^[0-9]+$" t)))) |
229 |
(when files |
(when files |
230 |
(save-excursion |
(save-excursion |
358 |
(nnmh-possibly-change-directory group server) |
(nnmh-possibly-change-directory group server) |
359 |
(let ((articles (mapcar |
(let ((articles (mapcar |
360 |
(lambda (file) |
(lambda (file) |
361 |
(string-to-int file)) |
(string-to-number file)) |
362 |
(directory-files |
(directory-files |
363 |
nnmh-current-directory nil "^[0-9]+$")))) |
nnmh-current-directory nil "^[0-9]+$")))) |
364 |
(when articles |
(when articles |
486 |
(let ((files (sort |
(let ((files (sort |
487 |
(mapcar |
(mapcar |
488 |
(lambda (f) |
(lambda (f) |
489 |
(string-to-int f)) |
(string-to-number f)) |
490 |
(directory-files dir nil "^[0-9]+$")) |
(directory-files dir nil "^[0-9]+$")) |
491 |
'>))) |
'>))) |
492 |
(when files |
(when files |
509 |
;; articles in this folder. The articles that are "new" will be |
;; articles in this folder. The articles that are "new" will be |
510 |
;; marked as unread by Gnus. |
;; marked as unread by Gnus. |
511 |
(let* ((dir nnmh-current-directory) |
(let* ((dir nnmh-current-directory) |
512 |
(files (sort (mapcar (function (lambda (name) (string-to-int name))) |
(files (sort (mapcar (function (lambda (name) (string-to-number name))) |
513 |
(directory-files nnmh-current-directory |
(directory-files nnmh-current-directory |
514 |
nil "^[0-9]+$" t)) |
nil "^[0-9]+$" t)) |
515 |
'<)) |
'<)) |