Mercurial > emacs
comparison lisp/mail/rmail.el @ 62402:a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 16 May 2005 11:33:47 +0000 |
| parents | edcdb077c4c1 |
| children | bb278282ddbc f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62401:4512c4db6912 | 62402:a7e02ef1e3d6 |
|---|---|
| 1988 (forward-char -1) | 1988 (forward-char -1) |
| 1989 (and (search-forward "\ncontent-length: " | 1989 (and (search-forward "\ncontent-length: " |
| 1990 header-end t) | 1990 header-end t) |
| 1991 (let ((beg (point)) | 1991 (let ((beg (point)) |
| 1992 (eol (progn (end-of-line) (point)))) | 1992 (eol (progn (end-of-line) (point)))) |
| 1993 (string-to-int (buffer-substring beg eol))))))) | 1993 (string-to-number (buffer-substring beg eol))))))) |
| 1994 (and size | 1994 (and size |
| 1995 (if (and (natnump size) | 1995 (if (and (natnump size) |
| 1996 (<= (+ header-end size) (point-max)) | 1996 (<= (+ header-end size) (point-max)) |
| 1997 ;; Make sure this would put us at a position | 1997 ;; Make sure this would put us at a position |
| 1998 ;; that we could continue from. | 1998 ;; that we could continue from. |