23.0.50; Abbreviations in mail cause error

[jpff]

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: address@hidden 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) "ÆÇ!ÆÈ!‰\nLˆLˆ    J:ƒD   address@hidden,\fJÊJ  
JA\"Ë\"‚<
      address@hidden  DÐ\fDѯE!‚<
Ò address@hidden'
address@hidden(
address@hidden)
address@hidden
ƒqÓÔË
GÕ\\D\"ˆ'…;
'+,„‰Ö× !„‰Ø 
ˆ(-'.)/Ù'ÚÛ'Ú\"T#ˆ'J;ƒ
*bˆ'Jcˆ)*|ˆË0(Ü'!š„
ÝÞ(\"ƒ
Ýß(\"„ý1„ôŠàvˆ`)bˆávˆ`V)ƒôâ)`\"ˆ‚
ã)`\"ˆ‚
`2)bˆäå2S\"ˆâ``T\"ˆ))'Kƒ8
'K‰3
 439ƒ7
4„7
3æNƒ7
Ë+*+)-*‡" [--cl-global-- --cl-funs-- funs global G100304 
--cl-rest-- make-symbol "--funs--" "--global--" t append nil lambda (&rest 
--cl-rest--) apply #[... "J    JA\nJ\"‡" [G100303 G100302 G100301] 3] quote 
--cl-rest-- abbrev--before-point signal wrong-number-of-arguments 4 
window-minibuffer-p selected-window undo-boundary abbrev-put :count abbrev-get 
symbol-name string-match "[[:upper:]]" "[[:lower:]]" -1 1 
upcase-initials-region upcase-region skip-syntax-forward "^w" no-self-insert 
sym name wordstart wordend value noninteractive last-abbrev-text last-abbrev 
last-abbrev-location case-fold-search abbrev-all-caps ...] 
10](----cl-var--100300-- nil nil)
  apply(#[(G100304 funs global) "ÆÇ!ÆÈ!‰\nLˆLˆ      J:ƒD   
address@hidden,\fJÊJ  JA\"Ë\"‚<
      address@hidden  DÐ\fDѯE!‚<
Ò 
address@hidden'
address@hidden(
address@hidden)
address@hidden
ƒqÓÔË
GÕ\\D\"ˆ'…;
'+,„‰Ö× !„‰Ø 
ˆ(-'.)/Ù'ÚÛ'Ú\"T#ˆ'J;ƒ
*bˆ'Jcˆ)*|ˆË0(Ü'!š„
ÝÞ(\"ƒ
Ýß(\"„ý1„ôŠàvˆ`)bˆávˆ`V)ƒôâ)`\"ˆ‚
ã)`\"ˆ‚
`2)bˆäå2S\"ˆâ``T\"ˆ))'Kƒ8
'K‰3
 439ƒ7
4„7
3æNƒ7
Ë+*+)-*‡" [--cl-global-- --cl-funs-- funs global G100304 
--cl-rest-- make-symbol "--funs--" "--global--" t append nil lambda (&rest 
--cl-rest--) apply #[... "J    JA\nJ\"‡" [G100303 G100302 G100301] 3] quote 
--cl-rest-- abbrev--before-point signal wrong-number-of-arguments 4 
window-minibuffer-p selected-window undo-boundary abbrev-put :count abbrev-get 
symbol-name string-match "[[:upper:]]" "[[:lower:]]" -1 1 
upcase-initials-region upcase-region skip-syntax-forward "^w" no-self-insert 
sym name wordstart wordend value noninteractive last-abbrev-text last-abbrev 
last-abbrev-location case-fold-search abbrev-all-caps ...] 10] 
----cl-var--100300-- (nil nil))
  (lambda (&rest --cl-rest--) (apply #[... "ÆÇ!ÆÈ!‰\nLˆLˆ   J:ƒD   
address@hidden,\fJÊJ  JA\"Ë\"‚<
      address@hidden  DÐ\fDѯE!‚<
Ò 
address@hidden'
address@hidden(
address@hidden)
address@hidden
ƒqÓÔË
GÕ\\D\"ˆ'…;
'+,„‰Ö× !„‰Ø 
ˆ(-'.)/Ù'ÚÛ'Ú\"T#ˆ'J;ƒ
*bˆ'Jcˆ)*|ˆË0(Ü'!š„
ÝÞ(\"ƒ
Ýß(\"„ý1„ôŠàvˆ`)bˆávˆ`V)ƒôâ)`\"ˆ‚
ã)`\"ˆ‚
`2)bˆäå2S\"ˆâ``T\"ˆ))'Kƒ8
'K‰3
 439ƒ7
4„7
3æNƒ7
Ë+*+)-*‡" [--cl-global-- --cl-funs-- funs global G100304 
--cl-rest-- make-symbol "--funs--" "--global--" t append nil lambda ... apply 
#[... "J    JA\nJ\"‡" [G100303 G100302 G100301] 3] quote --cl-rest-- 
abbrev--before-point signal wrong-number-of-arguments 4 window-minibuffer-p 
selected-window undo-boundary abbrev-put :count abbrev-get symbol-name 
string-match "[[:upper:]]" "[[:lower:]]" -1 1 upcase-initials-region 
upcase-region skip-syntax-forward "^w" no-self-insert sym name wordstart 
wordend value noninteractive last-abbrev-text last-abbrev last-abbrev-location 
case-fold-search abbrev-all-caps ...] 10] (quote ----cl-var--100300--) 
--cl-rest--))(nil nil)
  expand-abbrev()

This is repeatable and has been the case for a couple of days.  I
rebuilt from "make bootstrap" and it still happens.  Code ids from CVS
this morning.



In GNU Emacs 23.0.50.27 (i686-pc-linux-gnu, GTK+ Version 2.10.6)
 of 2007-10-31 on cardew
Windowing system distributor `The X.Org Foundation', version 11.0.70199902
configured using `configure  '--with-xpm' '--with-jpeg' '--with-tiff' 
'--with-gif' '--with-png' '--with-x' '--with-x-toolkit=yes''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_GB.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  auto-image-file-mode: t
  show-paren-mode: t
  display-time-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
M-m a f f SPC <help-echo> <help-echo> q C-x C-f G N 
<tab> e m a c s - 2 2 <tab> l i s p <tab> / m <tab> 
a <tab> i <tab> <tab> r <tab> m a <tab> <backspace> 
<backspace> <backspace> <backspace> <backspace> m <tab> 
a i <tab> a <tab> b <tab> <return> C-x 1 C-v C-v C-v 
C-v C-v C-v C-v C-v C-v C-v M-m y a f f SPC M-x e m 
a c s - r <tab> <backspace> b <tab> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
r e <tab> p <tab> o r t <tab> <return>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Loading mail-extr...done
Parsing /home/jpff/.mailrc... done
Entering debugger...
Back to top level.
Making completion list... [5 times]
Loading vc-cvs...done
Unsent message being composed; erase it? (y or n) 
Entering debugger...
Making completion list... [2 times]

==John ffitch