mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

(ispell-message): Handle cited messages.

Browse source
This commit is contained in:
Richard M. Stallman 1993-09-24 20:02:03 +00:00
parent 7a5e089152
commit 3ba7a8daca
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/textmodes/ispell4.el
View file

@ -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)