Mercurial > emacs
comparison lisp/mail/rmail.el @ 4819:22656ec8d019
(rmail-convert-to-babyl-format): Protect against
nonsensical content-length values.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Oct 1993 00:22:31 +0000 |
| parents | 0e239209a6db |
| children | 754b38c0e941 |
comparison
equal
deleted
inserted
replaced
| 4818:15dd7db2ab6c | 4819:22656ec8d019 |
|---|---|
| 893 (and (search-forward "\ncontent-length: " | 893 (and (search-forward "\ncontent-length: " |
| 894 header-end t) | 894 header-end t) |
| 895 (let ((beg (point)) | 895 (let ((beg (point)) |
| 896 (eol (progn (end-of-line) (point)))) | 896 (eol (progn (end-of-line) (point)))) |
| 897 (read (buffer-substring beg eol))))))) | 897 (read (buffer-substring beg eol))))))) |
| 898 (if size | 898 (and size (numberp size) (>= size 0) |
| 899 (goto-char (+ header-end size)))) | 899 (goto-char (+ header-end size)))) |
| 900 | 900 |
| 901 (if (re-search-forward | 901 (if (re-search-forward |
| 902 (concat "^[\^_]?\\(" | 902 (concat "^[\^_]?\\(" |
| 903 rmail-unix-mail-delimiter | 903 rmail-unix-mail-delimiter |
| 904 "\\|" | 904 "\\|" |