diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-30 06:26:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-30 06:26:19 +0000 |
| commit | 13aa1cde7f1b094026aa254fda2bffe819dd8ff9 (patch) | |
| tree | 19aa4aba6a1fe9c97a110fc8a762f08b7922d22c | |
| parent | fc48f3818e66d4094347c56b43141ef0f1a6480d (diff) | |
| download | emacs-13aa1cde7f1b094026aa254fda2bffe819dd8ff9.tar.gz | |
(mail-abbrev-in-expansion-header-p): Use mail-header-end.
| -rw-r--r-- | lisp/mail/mailabbrev.el | 9 |
1 files 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 |