Mercurial > emacs
changeset 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 | 15dd7db2ab6c |
| children | fdc2ebb95bed |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
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 "^[\^_]?\\("