diff options
| author | Richard M. Stallman | 1998-04-30 06:40:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-30 06:40:47 +0000 |
| commit | dcf5e726b5a7f7f7683a7f09d5471273ddcec30d (patch) | |
| tree | 22a5ba0527a7d03d974ea66aee8c7bac9cf20eda | |
| parent | 36f41f1db0a14a31801c7f95118ab8fdbe1d8ddb (diff) | |
| download | emacs-dcf5e726b5a7f7f7683a7f09d5471273ddcec30d.tar.gz emacs-dcf5e726b5a7f7f7683a7f09d5471273ddcec30d.zip | |
(ispell-message): Use rfc822-goto-eoh.
| -rw-r--r-- | lisp/textmodes/ispell4.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index cce4e0c876b..78b6cc1b958 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el | |||
| @@ -1027,16 +1027,12 @@ Or you can bind the function to C-c i in gnus or mail with: | |||
| 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 |