Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 4786:0a297b60d293
(ispell-message): Handle cited messages.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Sep 1993 20:02:03 +0000 |
| parents | fe223c0faf71 |
| children | ef5f87232112 |
comparison
equal
deleted
inserted
replaced
| 4785:0bb68a723b61 | 4786:0a297b60d293 |
|---|---|
| 610 (defun ispell-message () | 610 (defun ispell-message () |
| 611 "Check the spelling for an outgoing mail message." | 611 "Check the spelling for an outgoing mail message." |
| 612 (interactive) | 612 (interactive) |
| 613 (save-excursion | 613 (save-excursion |
| 614 (beginning-of-buffer) | 614 (beginning-of-buffer) |
| 615 ;; Don't spell-check the headers. | |
| 615 (search-forward mail-header-separator nil t) | 616 (search-forward mail-header-separator nil t) |
| 616 (ispell (current-buffer) (point)))) | 617 (while (not (eobp)) |
| 618 ;; Skip across text cited from other messages. | |
| 619 (while (and (looking-at (concat "^[ \t]*$\\|" | |
| 620 ispell-message-cite-regexp)) | |
| 621 (not (eobp))) | |
| 622 (forward-line 1)) | |
| 623 (if (not (eobp)) | |
| 624 ;; Fill the next batch of lines that *aren't* cited. | |
| 625 (let ((start (point))) | |
| 626 (re-search-forward | |
| 627 (concat "^\\(" ispell-message-cite-regexp "\\)") nil 'end) | |
| 628 (beginning-of-line) | |
| 629 (save-excursion (ispell-region (- start 1) (point)))))))) | |
| 617 | 630 |
| 618 (provide 'ispell) | 631 (provide 'ispell) |
| 619 | 632 |
| 620 ;;; ispell.el ends here | 633 ;;; ispell.el ends here |