expanding mail aliases too aggressive (.mailrc)

expanding mail aliases too aggressive (.mailrc)

[Karl Eichwalder]

In .mailrc I used to have this entry:

    alias gnu <gnu@gnu.org>

Now, when I type

    To: emacs-devel@gnu.-!-

it gets expanded to

    To: emacs-devel@<gnu@gnu.org>

Wondering when all these entries were added to .abbrev_defs as

    (define-abbrev-table 'mail-abbrevs '(
    [...]

Maybe, the problem is already fixed.

-- 
ke@suse.de (work) / keichwa@gmx.net (home):              |
http://www.suse.de/~ke/                                  |      ,__o
Free Translation Project:                                |    _-\_<,
http://www.iro.umontreal.ca/contrib/po/HTML/             |   (*)/'(*)

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel

Re: expanding mail aliases too aggressive (.mailrc)

[Richard Stallman]

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

Re: expanding mail aliases too aggressive (.mailrc)

[Karl Eichwalder]

Richard Stallman <rms@gnu.org> writes:

> *** mailabbrev.el.~1.63.~	Sat Feb  9 04:45:14 2002
> --- mailabbrev.el	Mon Feb 11 17:08:12 2002

Thanks for the fix which fixes the problem.

-- 
ke@suse.de (work) / keichwa@gmx.net (home):              |
http://www.suse.de/~ke/                                  |      ,__o
Free Translation Project:                                |    _-\_<,
http://www.iro.umontreal.ca/contrib/po/HTML/             |   (*)/'(*)

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel

Re: expanding mail aliases too aggressive (.mailrc)

[Karl Eichwalder]

Richard Stallman <rms@gnu.org> writes:

> Does this fix the problem?

[...]

> ***************
> *** 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,
>

Yes, this fixes the reported problem, but it isn't general enough.

Completing mail abbrevs must only happen for strings after

    ^[tT]o:[:blank:]?
or
    ,[:blank:]

Wondering when my .mailrc entries were transferred to
(define-abbrev-table 'mail-abbrevs '(...)) in  ~/.abbrev_defs; was this
a one time action or does Emacs maintain this list?

Whenever Emacs decides to modify user files in tell the user about it
(through a message dialog the user is considered to confirm) and add a
comment.

-- 
ke@suse.de (work) / keichwa@gmx.net (home):              |
http://www.suse.de/~ke/                                  |      ,__o
Free Translation Project:                                |    _-\_<,
http://www.iro.umontreal.ca/contrib/po/HTML/             |   (*)/'(*)

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel