From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jun 1994 04:30:44 +0000 (+0000)
Subject: (ispell-message): Avoid an infinite loop.
X-Git-Tag: emacs-19.34~7801
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=565101f47302842c104b840f30efbca094875107;p=emacs.git

(ispell-message): Avoid an infinite loop.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 68acd165bdc..268bd76bbd9 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1991,7 +1991,12 @@ you can bind this to the key C-c i in GNUS or mail by adding to
 	;; Skip across text cited from other messages.
 	(while (and (looking-at cite-regexp-start)
 		    (< (point) limit))
-	  (forward-line 1))
+	  (let ((point1 (point)))
+	    (forward-line 1)
+	    ;; If there's no next line, go to the end of this one
+	    ;; so that the loop stops looping.
+	    (if (eq point1 (point))
+		(end-of-line))))
 	(if (< (point) limit)
 	    ;; Check the next batch of lines that *aren't* cited.
 	    (let ((end (save-excursion