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

[Miles Bader]

Index: emacs/lisp/gnus/nnmail.el
diff -c emacs/lisp/gnus/nnmail.el:1.25 emacs/lisp/gnus/nnmail.el:1.26
*** emacs/lisp/gnus/nnmail.el:1.25      Wed Feb  9 15:50:37 2005
--- emacs/lisp/gnus/nnmail.el   Mon May 30 17:13:58 2005
***************
*** 769,775 ****
        (if (not (save-excursion
                 (and (re-search-backward
                       "^Content-Length:[ \t]*\\([0-9]+\\)" start t)
!                     (setq content-length (string-to-int
                                            (buffer-substring
                                             (match-beginning 1)
                                             (match-end 1))))
--- 769,775 ----
        (if (not (save-excursion
                 (and (re-search-backward
                       "^Content-Length:[ \t]*\\([0-9]+\\)" start t)
!                     (setq content-length (string-to-number
                                            (buffer-substring
                                             (match-beginning 1)
                                             (match-end 1))))
***************
*** 906,912 ****
        (if (not (re-search-forward
                  "^Content-Length:[ \t]*\\([0-9]+\\)" nil t))
            (setq content-length nil)
!         (setq content-length (string-to-int (match-string 1)))
          ;; We destroy the header, since none of the backends ever
          ;; use it, and we do not want to confuse other mailers by
          ;; having a (possibly) faulty header.
--- 906,912 ----
        (if (not (re-search-forward
                  "^Content-Length:[ \t]*\\([0-9]+\\)" nil t))
            (setq content-length nil)
!         (setq content-length (string-to-number (match-string 1)))
          ;; We destroy the header, since none of the backends ever
          ;; use it, and we do not want to confuse other mailers by
          ;; having a (possibly) faulty header.