[Emacs-diffs] Changes to emacs/lisp/gnus/nntp.el

[Miles Bader]

Index: emacs/lisp/gnus/nntp.el
diff -c emacs/lisp/gnus/nntp.el:1.24 emacs/lisp/gnus/nntp.el:1.25
*** emacs/lisp/gnus/nntp.el:1.24        Tue May 17 04:57:29 2005
--- emacs/lisp/gnus/nntp.el     Mon May 30 17:13:58 2005
***************
*** 1499,1505 ****
          (when (<= count 1)
            (goto-char (point-min))
            (when (re-search-forward "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" nil t)
!             (let ((low-limit (string-to-int
                              (buffer-substring (match-beginning 1) 
                                                (match-end 1)))))
                (while (and articles (<= (car articles) low-limit))
--- 1499,1505 ----
          (when (<= count 1)
            (goto-char (point-min))
            (when (re-search-forward "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" nil t)
!             (let ((low-limit (string-to-number
                              (buffer-substring (match-beginning 1) 
                                                (match-end 1)))))
                (while (and articles (<= (car articles) low-limit))
***************
*** 1571,1577 ****
        (goto-char (point-min))
        ;; We first find the number by looking at the status line.
        (let ((number (and (looking-at "2[0-9][0-9] +\\([0-9]+\\) ")
!                        (string-to-int
                          (buffer-substring (match-beginning 1)
                                            (match-end 1)))))
            newsgroups xref)
--- 1571,1577 ----
        (goto-char (point-min))
        ;; We first find the number by looking at the status line.
        (let ((number (and (looking-at "2[0-9][0-9] +\\([0-9]+\\) ")
!                        (string-to-number
                          (buffer-substring (match-beginning 1)
                                            (match-end 1)))))
            newsgroups xref)
***************
*** 1609,1615 ****
                    "\\([^ :]+\\):\\([0-9]+\\)")
                  xref))
            (setq group (match-string 1 xref)
!                 number (string-to-int (match-string 2 xref))))
           ((and (setq newsgroups
                       (mail-fetch-field "newsgroups"))
                 (not (string-match "," newsgroups)))
--- 1609,1615 ----
                    "\\([^ :]+\\):\\([0-9]+\\)")
                  xref))
            (setq group (match-string 1 xref)
!                 number (string-to-number (match-string 2 xref))))
           ((and (setq newsgroups
                       (mail-fetch-field "newsgroups"))
                 (not (string-match "," newsgroups)))