From 276d56c25441d4fde8a61f003a8505b8902eb919 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 5 Oct 1993 00:22:31 +0000 Subject: [PATCH] (rmail-convert-to-babyl-format): Protect against nonsensical content-length values. --- lisp/mail/rmail.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index d8b11bf48bd..3a6665d6f20 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -895,8 +895,8 @@ argument causes us to read a file name and use that file as the inbox." (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 "^[\^_]?\\(" -- 2.39.5