Mercurial > emacs

diff lisp/gnus/mm-decode.el @ 34833:aaf69bc74739

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gnus-art.el (gnus-article-check-hidden-text): Return t. * gnus-util.el (gnus-remove-text-properties-when): Return t. * mm-decode.el (mm-dissect-multipart): Avoid errors owing to malformatted messages.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Fri, 22 Dec 2000 14:19:33 +0000
parents e06db3b8e558
children 0b4c50eb2002
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el	Fri Dec 22 13:49:57 2000 +0000
+++ b/lisp/gnus/mm-decode.el	Fri Dec 22 14:19:33 2000 +0000
@@ -310,7 +310,7 @@
 		    (match-beginning 0)
 		  (point-max)))))
     (setq boundary (concat (regexp-quote boundary) "[ \t]*$"))
-    (while (re-search-forward boundary end t)
+    (while (and (< (point) end) (re-search-forward boundary end t))
       (goto-char (match-beginning 0))
       (when start
 	(save-excursion
@@ -319,7 +319,7 @@
 	    (setq parts (nconc (list (mm-dissect-buffer t)) parts)))))
       (forward-line 2)
       (setq start (point)))
-    (when start
+    (when (and start (< start end))
       (save-excursion
 	(save-restriction
 	  (narrow-to-region start end)