From mboxrd@z Thu Jan 1 00:00:00 1970 Path: quimby.gnus.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: expanding mail aliases too aggressive (.mailrc) Date: Tue, 12 Feb 2002 08:23:07 -0700 (MST) Message-ID: <200202121523.g1CFN7507211@aztec.santafe.edu> References: Reply-To: rms@gnu.org NNTP-Posting-Host: quimby2.netfonds.no X-Trace: quimby2.netfonds.no 1013528115 11577 195.204.10.66 (12 Feb 2002 15:35:15 GMT) X-Complaints-To: usenet@quimby2.netfonds.no NNTP-Posting-Date: 12 Feb 2002 15:35:15 GMT Cc: emacs-devel@gnu.org Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby2.netfonds.no with esmtp (Exim 3.12 #1 (Debian)) id 16aexe-00030d-00 for ; Tue, 12 Feb 2002 16:35:14 +0100 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.33 #1 (Debian)) id 16aen0-0005C2-00; Tue, 12 Feb 2002 10:24:14 -0500 Original-Received: from pele.santafe.edu ([192.12.12.119]) by fencepost.gnu.org with esmtp (Exim 3.33 #1 (Debian)) id 16aem2-00053F-00; Tue, 12 Feb 2002 10:23:14 -0500 Original-Received: from aztec.santafe.edu (aztec [192.12.12.49]) by pele.santafe.edu (8.9.3/8.9.3) with ESMTP id IAA26587; Tue, 12 Feb 2002 08:23:07 -0700 (MST) Original-Received: (from rms@localhost) by aztec.santafe.edu (8.10.2+Sun/8.9.3) id g1CFN7507211; Tue, 12 Feb 2002 08:23:07 -0700 (MST) X-Authentication-Warning: aztec.santafe.edu: rms set sender to rms@aztec using -f Original-To: keichwa@gmx.net In-reply-to: (message from Karl Eichwalder on Mon, 11 Feb 2002 09:14:31 +0100) Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.5 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: quimby.gnus.org gmane.emacs.devel:1031 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:1031 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, _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://mail.gnu.org/mailman/listinfo/emacs-devel