(ispell-message): Handle cited messages.

1 files changed, 14 insertions, 1 deletions

diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 9d37d0a1246..7ffbb8caf28 100644
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -612,8 +612,21 @@ L lookup; Q quit\n")
   (interactive)
   (save-excursion
     (beginning-of-buffer)
+    ;; Don't spell-check the headers.
     (search-forward mail-header-separator nil t)
-    (ispell (current-buffer) (point))))
+    (while (not (eobp))
+      ;; Skip across text cited from other messages.
+      (while (and (looking-at (concat "^[ \t]*$\\|"
+                                      ispell-message-cite-regexp))
+                  (not (eobp)))
+        (forward-line 1))
+      (if (not (eobp))
+          ;; Fill the next batch of lines that *aren't* cited.
+          (let ((start (point)))
+            (re-search-forward
+             (concat "^\\(" ispell-message-cite-regexp "\\)") nil 'end)
+            (beginning-of-line)
+            (save-excursion (ispell-region (- start 1) (point))))))))
 
 (provide 'ispell)