487 |
articles) |
articles) |
488 |
(when (file-exists-p dir) |
(when (file-exists-p dir) |
489 |
(setq articles |
(setq articles |
490 |
(sort (mapcar (lambda (name) (string-to-int name)) |
(sort (mapcar (lambda (name) (string-to-number name)) |
491 |
(directory-files dir nil "^[0-9]+$" t)) |
(directory-files dir nil "^[0-9]+$" t)) |
492 |
'<)) |
'<)) |
493 |
;; Update the cache active file, just to synch more. |
;; Update the cache active file, just to synch more. |
681 |
;; Separate articles from all other files and directories. |
;; Separate articles from all other files and directories. |
682 |
(while files |
(while files |
683 |
(if (string-match "^[0-9]+$" (file-name-nondirectory (car files))) |
(if (string-match "^[0-9]+$" (file-name-nondirectory (car files))) |
684 |
(push (string-to-int (file-name-nondirectory (pop files))) nums) |
(push (string-to-number (file-name-nondirectory (pop files))) nums) |
685 |
(push (pop files) alphs))) |
(push (pop files) alphs))) |
686 |
;; If we have nums, then this is probably a valid group. |
;; If we have nums, then this is probably a valid group. |
687 |
(when (setq nums (sort nums '<)) |
(when (setq nums (sort nums '<)) |