Mercurial > emacs

changeset 21872:0308bce52ae4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-message): Use rfc822-goto-eoh.
author Richard M. Stallman <rms@gnu.org>
date Thu, 30 Apr 1998 06:40:47 +0000
parents 594b894aada5
children 3ab8be88f2ef
files lisp/textmodes/=ispell4.el
diffstat 1 files changed, 5 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/=ispell4.el	Thu Apr 30 06:39:27 1998 +0000
+++ b/lisp/textmodes/=ispell4.el	Thu Apr 30 06:40:47 1998 +0000
@@ -1027,16 +1027,12 @@
     (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