From 13aa1cde7f1b094026aa254fda2bffe819dd8ff9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Apr 1998 06:26:19 +0000 Subject: [PATCH] (mail-abbrev-in-expansion-header-p): Use mail-header-end. --- lisp/mail/mailabbrev.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 14ca13b8b17..8a3b6721223 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -447,13 +447,8 @@ of a mail alias.") ;; are we at the front of an appropriate header line? (looking-at mail-abbrev-mode-regexp)) ;; - ;; ...and we are before the mail-header-separator - (< (point) - (save-excursion - (goto-char (point-min)) - (search-forward (concat "\n" mail-header-separator "\n") - nil 0) - (point)))))) + ;; ...and are we in the headers? + (< (point) (mail-header-end))))) (defvar mail-mode-abbrev-table) ; quiet the compiler