/[emacs]/emacs/lisp/obsolete/rnews.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/rnews.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by miles, Mon Sep 1 15:45:33 2003 UTC revision 1.5 by lektu, Mon May 9 08:46:35 2005 UTC
# Line 397  U       unsubscribe from specified newsg Line 397  U       unsubscribe from specified newsg
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)
# Line 524  to a list (a . b)" Line 524  to a list (a . b)"
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)))
# Line 803  Using ls was found to be too slow in a p Line 803  Using ls was found to be too slow in a p
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)))
# Line 811  Using ls was found to be too slow in a p Line 811  Using ls was found to be too slow in a p
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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26