[Emacs-diffs] Changes to emacs/lisp/obsolete/rnews.el

[Juanma Barranquero]

Index: emacs/lisp/obsolete/rnews.el
diff -c emacs/lisp/obsolete/rnews.el:1.4 emacs/lisp/obsolete/rnews.el:1.5
*** emacs/lisp/obsolete/rnews.el:1.4    Mon Sep  1 15:45:33 2003
--- emacs/lisp/obsolete/rnews.el        Mon May  9 08:46:35 2005
***************
*** 397,405 ****
  to a list (a . b)"
    (let ((n (string-match "-" number-string)))
      (if n
!       (cons (string-to-int (substring number-string 0 n))
!             (string-to-int (substring number-string (1+ n))))
!       (setq n (string-to-int number-string))
        (cons n n))))
  
  ;(defun is-in (elt lis)
--- 397,405 ----
  to a list (a . b)"
    (let ((n (string-match "-" number-string)))
      (if n
!       (cons (string-to-number (substring number-string 0 n))
!             (string-to-number (substring number-string (1+ n))))
!       (setq n (string-to-number number-string))
        (cons n n))))
  
  ;(defun is-in (elt lis)
***************
*** 524,530 ****
    (news-select-message arg))
  
  (defun news-select-message (arg)
!   (if (stringp arg) (setq arg (string-to-int arg)))
    (let ((file (concat news-path
                      (string-subst-char ?/ ?. news-current-news-group)
                      "/" arg)))
--- 524,530 ----
    (news-select-message arg))
  
  (defun news-select-message (arg)
!   (if (stringp arg) (setq arg (string-to-number arg)))
    (let ((file (concat news-path
                      (string-subst-char ?/ ?. news-current-news-group)
                      "/" arg)))
***************
*** 803,809 ****
                         ;; don't get confused by directories that look like 
numbers
                         (file-directory-p
                          (concat file-directory "/" (car tem)))
!                        (<= (string-to-int (car tem)) end-file-no))
                     (setq news-list-of-files
                           (delq (car tem) news-list-of-files)))
                 (setq tem (cdr tem)))
--- 803,809 ----
                         ;; don't get confused by directories that look like 
numbers
                         (file-directory-p
                          (concat file-directory "/" (car tem)))
!                        (<= (string-to-number (car tem)) end-file-no))
                     (setq news-list-of-files
                           (delq (car tem) news-list-of-files)))
                 (setq tem (cdr tem)))
***************
*** 811,817 ****
                   (progn (setq news-current-group-end 0)
                          nil)
                 (setq news-list-of-files
!                      (mapcar 'string-to-int news-list-of-files))
                 (setq news-list-of-files (sort news-list-of-files '<))
                 (setq news-current-group-end
                       (elt news-list-of-files
--- 811,817 ----
                   (progn (setq news-current-group-end 0)
                          nil)
                 (setq news-list-of-files
!                      (mapcar 'string-to-number news-list-of-files))
                 (setq news-list-of-files (sort news-list-of-files '<))
                 (setq news-current-group-end
                       (elt news-list-of-files