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

[Miles Bader]

Index: emacs/lisp/gnus/nnfolder.el
diff -c emacs/lisp/gnus/nnfolder.el:1.21 emacs/lisp/gnus/nnfolder.el:1.22
*** emacs/lisp/gnus/nnfolder.el:1.21    Fri Feb 25 01:52:09 2005
--- emacs/lisp/gnus/nnfolder.el Mon May 30 17:13:58 2005
***************
*** 200,206 ****
                       ((search-backward (concat "\n" nnfolder-article-marker)
                                         nil t)
                        (goto-char (match-end 0))
!                       (setq num (string-to-int
                                   (buffer-substring
                                    (point) (gnus-point-at-eol))))
                        (goto-char start)
--- 200,206 ----
                       ((search-backward (concat "\n" nnfolder-article-marker)
                                         nil t)
                        (goto-char (match-end 0))
!                       (setq num (string-to-number
                                   (buffer-substring
                                    (point) (gnus-point-at-eol))))
                        (goto-char start)
***************
*** 210,216 ****
                      (search-forward (concat "\n" nnfolder-article-marker)
                                      nil t)
                      (progn
!                       (setq num (string-to-int
                                   (buffer-substring
                                    (point) (gnus-point-at-eol))))
                        (> num article))
--- 210,216 ----
                      (search-forward (concat "\n" nnfolder-article-marker)
                                      nil t)
                      (progn
!                       (setq num (string-to-number
                                   (buffer-substring
                                    (point) (gnus-point-at-eol))))
                        (> num article))
***************
*** 285,291 ****
            (cons nnfolder-current-group
                  (if (search-forward (concat "\n" nnfolder-article-marker)
                                      nil t)
!                     (string-to-int (buffer-substring
                                      (point) (gnus-point-at-eol)))
                    -1))))))))
  
--- 285,291 ----
            (cons nnfolder-current-group
                  (if (search-forward (concat "\n" nnfolder-article-marker)
                                      nil t)
!                     (string-to-number (buffer-substring
                                      (point) (gnus-point-at-eol)))
                    -1))))))))