Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Mon Oct 04 23:50:32 1993 +0000 +++ b/lisp/mail/rmail.el Tue Oct 05 00:22:31 1993 +0000 @@ -895,8 +895,8 @@ (let ((beg (point)) (eol (progn (end-of-line) (point)))) (read (buffer-substring beg eol))))))) - (if size - (goto-char (+ header-end size)))) + (and size (numberp size) (>= size 0) + (goto-char (+ header-end size)))) (if (re-search-forward (concat "^[\^_]?\\("