Mercurial > emacs
changeset 43268:08fa5680829b
(define-mail-abbrev): Define as system abbrev.
(mail-abbrev-in-expansion-header-p): Copy the code of mail-header-end
to avoid needing sendmail.el at run time.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Feb 2002 15:59:53 +0000 |
| parents | a98ecf783878 |
| children | f4b001827b85 |
| files | lisp/mail/mailabbrev.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el Wed Feb 13 15:57:15 2002 +0000 +++ b/lisp/mail/mailabbrev.el Wed Feb 13 15:59:53 2002 +0000 @@ -317,7 +317,7 @@ (setq name (downcase name)) ;; use an abbrev table instead of an alist for mail-abbrevs. (let ((abbrevs-changed abbrevs-changed)) ; protect this from being changed. - (define-abbrev mail-abbrevs name definition 'mail-abbrev-expand-hook))) + (define-abbrev mail-abbrevs name definition 'mail-abbrev-expand-hook 0 t))) (defun mail-resolve-all-aliases () @@ -418,7 +418,12 @@ (looking-at mail-abbrev-mode-regexp)) ;; ;; ...and are we in the headers? - (< (point) (mail-header-end))))) + (< (point) + (save-restriction + (widen) + (save-excursion + (rfc822-goto-eoh) + (point))))))) (defvar mail-mode-abbrev-table) ; quiet the compiler @@ -464,6 +469,7 @@ (if (equal value _) (set-char-table-range tab key w)))) tab) + (modify-syntax-entry ?@ "w" tab) (setq mail-abbrev-syntax-table tab))) ;; If the character just typed was non-alpha-symbol-syntax,