Mercurial > emacs
changeset 6389:9b45e828c2a7
(rmail-convert-to-babyl-format): Check Content-Length field for consistency.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 17 Mar 1994 23:29:16 +0000 |
| parents | c82a7e9ae93b |
| children | 9f8ce71435de |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 20 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Thu Mar 17 22:38:14 1994 +0000 +++ b/lisp/mail/rmail.el Thu Mar 17 23:29:16 1994 +0000 @@ -928,9 +928,26 @@ header-end t) (let ((beg (point)) (eol (progn (end-of-line) (point)))) - (read (buffer-substring beg eol))))))) - (and size (numberp size) (>= size 0) - (goto-char (+ header-end size)))) + (string-to-int (buffer-substring beg eol))))))) + (and size + (if (and (natnump size) + (<= (+ header-end size) (point-max)) + ;; Make sure this would put us at a position + ;; that we could continue from. + (save-excursion + (goto-char (+ header-end size)) + (skip-chars-forward "\n") + (or (eobp) + (and (looking-at "BABYL OPTIONS:") + (search-forward "\n\^_" nil t)) + (and (looking-at "\^L") + (search-forward "\n\^_" nil t)) + (let ((case-fold-search t)) + (looking-at mmdf-delim1)) + (looking-at "From ")))) + (goto-char (+ header-end size)) + (message "Ignoring invalid Content-Length field") + (sit-for 1 0 t)))) (if (re-search-forward (concat "^[\^_]?\\("