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