Mercurial > emacs

changeset 4786:0a297b60d293

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-message): Handle cited messages.
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Sep 1993 20:02:03 +0000
parents 0bb68a723b61
children 409e4e3dcd4e
files lisp/textmodes/=ispell4.el
diffstat 1 files changed, 14 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)