mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(mail-abbrev-in-expansion-header-p): Use mail-header-end.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-04-30 06:26:19 +00:00
parent fc48f3818e
commit 13aa1cde7f
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mail/mailabbrev.el
View File

@ -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