23.0.50; Abbreviations in mail cause error

23.0.50; Abbreviations in mail cause error

[jpff]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1685 bytes --]

I try to send an e-mail (using mail in sendmail.el) and type a name
that I expect to be looked up in the .mailrc file.  The name s
expanded but then I get 

Debugger entered--Lisp error: (wrong-type-argument vectorp ([ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]))
  intern-soft("" ([ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...]))
  abbrev-table-get(([ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...]) :case-fixed)
  abbrev-symbol(#("\nSubject: \nBCC: jpff@codemist.co.uk\n--text follows this line--\n\n==John ffitch\n" 0 1 (fontified nil) 1 9 (face font-lock-comment-face fontified t) 9 10 (face my-trailing-space-face fontified t) 10 11 (fontified t) 11 15 (face font-lock-keyword-face fontified t) 15 16 (fontified t) 16 35 (fontified t) 35 36 (fontified t) 36 62 (face font-lock-warning-face category mail-header-separator fontified t) 62 63 (fontified t) 63 78 (fontified t)) ([ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...]))
  abbrev--before-point()
  #[(G100304 funs global) "ÆÇ!ÆÈ!\x18‰\x19\nLˆ\b\vLˆ	J:ƒD

Re: 23.0.50; Abbreviations in mail cause error

[Robert J. Chassell]

Today's GNU Emacs CVS snapshot, Wed, 2007 Oct 31  10:22 UTC
GNU Emacs 23.0.50.2 (i686-pc-linux-gnu, GTK+ Version 2.10.13)

jpff@codemist.co.uk said, 

    I try to send an e-mail (using mail in sendmail.el) and type a name
    that I expect to be looked up in the .mailrc file.

I confirm that with rmail-reply in `rmail.el'.

I have seen the problem for several days and even tried a bootstrap,
which takes me a long time.  No success.

jpff@codemist.co.uk's debug looks good.

-- 
    Robert J. Chassell                          GnuPG Key ID: 004B4AC8
    bob@rattlesnake.com                         bob@gnu.org
    http://www.rattlesnake.com                  http://www.teak.cc

Re: 23.0.50; Abbreviations in mail cause error

[Stefan Monnier]

> I try to send an e-mail (using mail in sendmail.el) and type a name
> that I expect to be looked up in the .mailrc file.  The name s
> expanded but then I get 

Thanks.  I believe the patch below will fix the two bugs into which
you bumped.


        Stefan


Index: abbrev.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/abbrev.el,v
retrieving revision 1.57
diff -u -u -b -r1.57 abbrev.el
--- abbrev.el	30 Oct 2007 01:39:16 -0000	1.57
+++ abbrev.el	31 Oct 2007 15:45:11 -0000
@@ -649,7 +649,7 @@
   (let ((tables (abbrev--active-tables table))
         sym)
     (while (and tables (not (symbol-value sym)))
-      (let ((table (pop tables))
+      (let* ((table (pop tables))
             (case-fold (not (abbrev-table-get table :case-fixed))))
         (setq tables (append (abbrev-table-get table :parents) tables))
         ;; In case the table doesn't set :case-fixed but some of the
@@ -693,9 +693,10 @@
               (delete-region start (1+ start)))
           (skip-syntax-backward " ")
           (setq end (point))
+          (when (> end start)
           (setq name (buffer-substring start end))
           (goto-char pos)               ; Restore point.
-          (list (abbrev-symbol name tables) name start end))
+            (list (abbrev-symbol name tables) name start end)))
         
       (while (and tables (not (car res)))
         (let* ((table (pop tables))