Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 21872:0308bce52ae4
(ispell-message): Use rfc822-goto-eoh.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 30 Apr 1998 06:40:47 +0000 |
| parents | ac1673121774 |
| children |
comparison
equal
deleted
inserted
replaced
| 21871:594b894aada5 | 21872:0308bce52ae4 |
|---|---|
| 1025 (interactive) | 1025 (interactive) |
| 1026 (save-excursion | 1026 (save-excursion |
| 1027 (let (non-internal-message | 1027 (let (non-internal-message |
| 1028 (old-case-fold-search case-fold-search) | 1028 (old-case-fold-search case-fold-search) |
| 1029 (case-fold-search nil)) | 1029 (case-fold-search nil)) |
| 1030 (goto-char (point-min)) | 1030 |
| 1031 ;; Don't spell-check the headers. | 1031 ;; Don't spell-check the headers. |
| 1032 (if (search-forward mail-header-separator nil t) | 1032 (rfc822-goto-eoh) |
| 1033 ;; Move to first body line. | 1033 (forward-line 1) |
| 1034 (forward-line 1) | 1034 (setq non-internal-message (looking-at "")) |
| 1035 (while (and (looking-at "[a-zA-Z-]+:\\|\t\\| ") | 1035 |
| 1036 (not (eobp))) | |
| 1037 (forward-line 1)) | |
| 1038 (setq non-internal-message t) | |
| 1039 ) | |
| 1040 (let* ((cite-regexp ;Prefix of inserted text | 1036 (let* ((cite-regexp ;Prefix of inserted text |
| 1041 (cond | 1037 (cond |
| 1042 ((featurep 'supercite) ; sc 3.0 | 1038 ((featurep 'supercite) ; sc 3.0 |
| 1043 (concat "\\(" (sc-cite-regexp) "\\)" "\\|" | 1039 (concat "\\(" (sc-cite-regexp) "\\)" "\\|" |
| 1044 (ispell-non-empty-string sc-reference-tag-string))) | 1040 (ispell-non-empty-string sc-reference-tag-string))) |