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.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
