From 565101f47302842c104b840f30efbca094875107 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jun 1994 04:30:44 +0000 Subject: [PATCH] (ispell-message): Avoid an infinite loop. --- lisp/textmodes/ispell.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- 2.39.5