[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: expanding mail aliases too aggressive (.mailrc)
From: |
Richard Stallman |
Subject: |
Re: expanding mail aliases too aggressive (.mailrc) |
Date: |
Tue, 12 Feb 2002 08:23:07 -0700 (MST) |
Does this fix the problem?
*** mailabbrev.el.~1.63.~ Sat Feb 9 04:45:14 2002
--- mailabbrev.el Mon Feb 11 17:08:12 2002
***************
*** 317,323 ****
(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)))
(defun mail-resolve-all-aliases ()
--- 317,323 ----
(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 0
t)))
(defun mail-resolve-all-aliases ()
***************
*** 418,424 ****
(looking-at mail-abbrev-mode-regexp))
;;
;; ...and are we in the headers?
! (< (point) (mail-header-end)))))
(defvar mail-mode-abbrev-table) ; quiet the compiler
--- 418,429 ----
(looking-at mail-abbrev-mode-regexp))
;;
;; ...and are we in the headers?
! (< (point)
! (save-restriction
! (widen)
! (save-excursion
! (rfc822-goto-eoh)
! (point)))))))
(defvar mail-mode-abbrev-table) ; quiet the compiler
***************
*** 464,469 ****
--- 469,475 ----
(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,