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

[Miles Bader]

Index: emacs/lisp/gnus/nnml.el
diff -c emacs/lisp/gnus/nnml.el:1.14 emacs/lisp/gnus/nnml.el:1.15
*** emacs/lisp/gnus/nnml.el:1.14        Sun Nov 14 23:03:04 2004
--- emacs/lisp/gnus/nnml.el     Mon May 30 17:13:58 2005
***************
*** 212,218 ****
        (nnheader-report 'nnml "Article %s retrieved" id)
        ;; We return the article number.
        (cons (if group-num (car group-num) group)
!           (string-to-int (file-name-nondirectory path)))))))
  
  (deffoo nnml-request-group (group &optional server dont-check)
    (let ((file-name-coding-system nnmail-pathname-coding-system))
--- 212,218 ----
        (nnheader-report 'nnml "Article %s retrieved" id)
        ;; We return the article number.
        (cons (if group-num (car group-num) group)
!           (string-to-number (file-name-nondirectory path)))))))
  
  (deffoo nnml-request-group (group &optional server dont-check)
    (let ((file-name-coding-system nnmail-pathname-coding-system))
***************
*** 426,432 ****
            ;; we should insert it.  (This situation should never
            ;; occur, but one likes to make sure...)
            (while (and (looking-at "[0-9]+\t")
!                       (< (string-to-int
                            (buffer-substring
                             (match-beginning 0) (match-end 0)))
                           article)
--- 426,432 ----
            ;; we should insert it.  (This situation should never
            ;; occur, but one likes to make sure...)
            (while (and (looking-at "[0-9]+\t")
!                       (< (string-to-number
                            (buffer-substring
                             (match-beginning 0) (match-end 0)))
                           article)