Mercurial > emacs
diff lisp/gnus/nnmail.el @ 90188:01137c1fdbe9
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 324-352)
- Merge from gnus--rel--5.10
- Update from CVS
- etc/emacs-buffer.gdb: Remove RCS keywords
* gnus--rel--5.10 (patch 70-79)
- Update from CVS
- Merge from emacs--cvs-trunk--0
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 06 Jun 2005 02:39:45 +0000 |
| parents | 3ebd9bdb4fe5 88db2adda4b7 |
| children | f9a65d7ebd29 |
line wrap: on
line diff
--- a/lisp/gnus/nnmail.el Sun Jun 05 01:58:02 2005 +0000 +++ b/lisp/gnus/nnmail.el Mon Jun 06 02:39:45 2005 +0000 @@ -769,7 +769,7 @@ (if (not (save-excursion (and (re-search-backward "^Content-Length:[ \t]*\\([0-9]+\\)" start t) - (setq content-length (string-to-int + (setq content-length (string-to-number (buffer-substring (match-beginning 1) (match-end 1)))) @@ -906,7 +906,7 @@ (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))) + (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.