# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 749780551 0
# Node ID 22656ec8d019ef1f0231c46db0012952c412b776
# Parent  15dd7db2ab6c0d3e74b4cfdd627985a712a04358
(rmail-convert-to-babyl-format): Protect against
nonsensical content-length values.

diff -r 15dd7db2ab6c -r 22656ec8d019 lisp/mail/rmail.el
--- 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 "^[\^_]?\\("