From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 5 Oct 1993 00:22:31 +0000 (+0000)
Subject: (rmail-convert-to-babyl-format): Protect against
X-Git-Tag: emacs-19.34~11032
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=276d56c25441d4fde8a61f003a8505b8902eb919;p=emacs.git

(rmail-convert-to-babyl-format): Protect against
nonsensical content-length values.
---

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 "^[\^_]?\\("