397 |
to a list (a . b)" |
to a list (a . b)" |
398 |
(let ((n (string-match "-" number-string))) |
(let ((n (string-match "-" number-string))) |
399 |
(if n |
(if n |
400 |
(cons (string-to-int (substring number-string 0 n)) |
(cons (string-to-number (substring number-string 0 n)) |
401 |
(string-to-int (substring number-string (1+ n)))) |
(string-to-number (substring number-string (1+ n)))) |
402 |
(setq n (string-to-int number-string)) |
(setq n (string-to-number number-string)) |
403 |
(cons n n)))) |
(cons n n)))) |
404 |
|
|
405 |
;(defun is-in (elt lis) |
;(defun is-in (elt lis) |
524 |
(news-select-message arg)) |
(news-select-message arg)) |
525 |
|
|
526 |
(defun news-select-message (arg) |
(defun news-select-message (arg) |
527 |
(if (stringp arg) (setq arg (string-to-int arg))) |
(if (stringp arg) (setq arg (string-to-number arg))) |
528 |
(let ((file (concat news-path |
(let ((file (concat news-path |
529 |
(string-subst-char ?/ ?. news-current-news-group) |
(string-subst-char ?/ ?. news-current-news-group) |
530 |
"/" arg))) |
"/" arg))) |
803 |
;; don't get confused by directories that look like numbers |
;; don't get confused by directories that look like numbers |
804 |
(file-directory-p |
(file-directory-p |
805 |
(concat file-directory "/" (car tem))) |
(concat file-directory "/" (car tem))) |
806 |
(<= (string-to-int (car tem)) end-file-no)) |
(<= (string-to-number (car tem)) end-file-no)) |
807 |
(setq news-list-of-files |
(setq news-list-of-files |
808 |
(delq (car tem) news-list-of-files))) |
(delq (car tem) news-list-of-files))) |
809 |
(setq tem (cdr tem))) |
(setq tem (cdr tem))) |
811 |
(progn (setq news-current-group-end 0) |
(progn (setq news-current-group-end 0) |
812 |
nil) |
nil) |
813 |
(setq news-list-of-files |
(setq news-list-of-files |
814 |
(mapcar 'string-to-int news-list-of-files)) |
(mapcar 'string-to-number news-list-of-files)) |
815 |
(setq news-list-of-files (sort news-list-of-files '<)) |
(setq news-list-of-files (sort news-list-of-files '<)) |
816 |
(setq news-current-group-end |
(setq news-current-group-end |
817 |
(elt news-list-of-files |
(elt news-list-of-files |