# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 748900923 0
# Node ID 0a297b60d2937412c390b5a8bdf6e2b487b0a05a
# Parent  0bb68a723b61e9fbb02077894591047336960265
(ispell-message): Handle cited messages.

diff -r 0bb68a723b61 -r 0a297b60d293 lisp/textmodes/=ispell4.el
--- a/lisp/textmodes/=ispell4.el	Fri Sep 24 07:07:22 1993 +0000
+++ b/lisp/textmodes/=ispell4.el	Fri Sep 24 20:02:03 1993 +0000
@@ -612,8 +612,21 @@
   (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)