diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-09-24 20:02:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-09-24 20:02:03 +0000 |
| commit | 3ba7a8dacadd8160cb1a2bb994a9efe90d40ccc8 (patch) | |
| tree | 62b69860598c3d262acd399439d21925d7bf099f /lisp/textmodes/ispell4.el | |
| parent | 7a5e0891528c6563ae3f500858b5a46add9daeb5 (diff) | |
| download | emacs-3ba7a8dacadd8160cb1a2bb994a9efe90d40ccc8.tar.gz | |
(ispell-message): Handle cited messages.
Diffstat (limited to 'lisp/textmodes/ispell4.el')
| -rw-r--r-- | lisp/textmodes/ispell4.el | 15 |
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) |