(ispell-message): Avoid an infinite loop.

1 files changed, 6 insertions, 1 deletions

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