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

[Miles Bader]

Index: emacs/lisp/gnus/nndoc.el
diff -c emacs/lisp/gnus/nndoc.el:1.8 emacs/lisp/gnus/nndoc.el:1.9
*** emacs/lisp/gnus/nndoc.el:1.8        Sat Sep  4 13:13:43 2004
--- emacs/lisp/gnus/nndoc.el    Mon May 30 17:13:58 2005
***************
*** 421,427 ****
               (search-forward "\n\n" beg t)
               (re-search-backward
                "^Content-Length:[ \t]*\\([0-9]+\\) *$" end t)
!              (setq len (string-to-int (match-string 1)))
               (search-forward "\n\n" beg t)
               (unless (= (setq len (+ (point) len)) (point-max))
                 (and (< len (point-max))
--- 421,427 ----
               (search-forward "\n\n" beg t)
               (re-search-backward
                "^Content-Length:[ \t]*\\([0-9]+\\) *$" end t)
!              (setq len (string-to-number (match-string 1)))
               (search-forward "\n\n" beg t)
               (unless (= (setq len (+ (point) len)) (point-max))
                 (and (< len (point-max))
***************
*** 444,450 ****
  (defun nndoc-rnews-body-end ()
    (and (re-search-backward nndoc-article-begin nil t)
         (forward-line 1)
!        (goto-char (+ (point) (string-to-int (match-string 1))))))
  
  (defun nndoc-babyl-type-p ()
    (when (re-search-forward "\^_\^L *\n" nil t)
--- 444,450 ----
  (defun nndoc-rnews-body-end ()
    (and (re-search-backward nndoc-article-begin nil t)
         (forward-line 1)
!        (goto-char (+ (point) (string-to-number (match-string 1))))))
  
  (defun nndoc-babyl-type-p ()
    (when (re-search-forward "\^_\^L *\n" nil t)