# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 765353075 0
# Node ID d3e3efcd8461f5e5854dc68e9c1122afb6775687
# Parent  ba0c1af167e6992dd1a59682bca0232ca859cdff
(ispell-message): Fixed infinite loop on shortened msg.

diff -r ba0c1af167e6 -r d3e3efcd8461 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Sun Apr 03 02:04:38 1994 +0000
+++ b/lisp/textmodes/ispell.el	Sun Apr 03 06:04:35 1994 +0000
@@ -1756,14 +1756,14 @@
     (beginning-of-buffer)
     (let* ((internal-messagep 
 	    (search-forward mail-header-separator nil t))
-	   (limit
+	   (limit (copy-marker
 	    (cond
 	     ((not ispell-message-text-end) (point-max))
 	     ((char-or-string-p ispell-message-text-end)
 	      (if (re-search-forward ispell-message-text-end nil t)
 		  (match-beginning 0)
 		(point-max)))
-	     (t (min (point-max) (funcall ispell-message-text-end)))))
+	     (t (min (point-max) (funcall ispell-message-text-end))))))
 	   (cite-regexp			;Prefix of inserted text
 	    (cond
 	     ((featurep 'supercite)	; sc 3.0
@@ -1833,7 +1833,8 @@
 			     (match-beginning 0)
 			   limit))))
 	      (ispell-region (point) end)
-	      (goto-char end))))))))
+	      (goto-char end)))))
+    (set-marker limit nil))))
 
 (defun ispell-non-empty-string (string)
   (if (or (not string) (string-equal string ""))