From dcf5e726b5a7f7f7683a7f09d5471273ddcec30d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Apr 1998 06:40:47 +0000 Subject: [PATCH] (ispell-message): Use rfc822-goto-eoh. --- lisp/textmodes/ispell4.el | 14 +++++--------- 1 file 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: (let (non-internal-message (old-case-fold-search case-fold-search) (case-fold-search nil)) - (goto-char (point-min)) + ;; Don't spell-check the headers. - (if (search-forward mail-header-separator nil t) - ;; Move to first body line. - (forward-line 1) - (while (and (looking-at "[a-zA-Z-]+:\\|\t\\| ") - (not (eobp))) - (forward-line 1)) - (setq non-internal-message t) - ) + (rfc822-goto-eoh) + (forward-line 1) + (setq non-internal-message (looking-at "")) + (let* ((cite-regexp ;Prefix of inserted text (cond ((featurep 'supercite) ; sc 3.0 -- 2.39.5