bug#5086: 23.1.50; strange font-lock in message-mode

When I invoke Emacs with -q, type C-x m, and start typing
the body text in the message mode, the face
`message-cited-text' (foreground: red) is used for that
text.  It should be the default face.

---
Kenichi Handa
[email protected]


If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
For information about debugging Emacs, please read the file
/usr/local/work/emacs/etc/DEBUG.


In GNU Emacs 23.1.50.9 (i686-pc-linux-gnu, GTK+ Version 2.16.1)
 of 2009-11-30 on etlken
Windowing system distributor `The X.Org Foundation', version 11.0.10600000
configured using `configure  'CFLAGS=-g''

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: ja_JP.UTF-8
  value of $XMODIFIERS: @im=SCIM
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: RMAIL

Minor modes in effect:
  shell-dirtrack-mode: t
  display-time-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
c o d i n g SPC s y s t e m SPC f o r SPC y o u <M-backspace> 
t h e SPC s h e l l SPC b u f f e r SPC t o SPC u t 
f - 8 SPC ( C-x s C-x RET p u t f - 8 <return> u t 
f - 8 <return> C-x b <return> C - x SPC C m <backspace> 
- m SPC p SPC u t f - 8 SPC R E T SPC u t f - 8 SPC 
R E T ) . SPC SPC <backspace> <backspace> <backspace> 
SPC a n d SPC r u n SPC l s SPC a n d SPC c a t SPC 
a g a i n . <escape> q <return> <return> C-u 7 C-c 
C-w C-p C-p C-p C-p C-p C-n C-e <escape> < C-c C-c 
C-x b R M <tab> <return> C-x b t e m p 1 . <tab> <return> 
C-x k <return> C-x b t e m p <tab> 2 <tab> <return> 
C-x k <return> C-x b t e m p 3 <tab> <return> C-x k 
<return> C-x b t e m p 4 <tab> <return> C-x k <return> 
k <return> p k <return> h n n n SPC r C-c C-y <return> 
C-x C-x a s d f C-a <escape> < C-/ C-x k <return> y 
e s <return> r a s d f C-a C-u C-x = C-x k <return> 
y e s <return> C-x s e m a c s SPC - q <return> <help-echo> 
C-x b <return> g <help-echo> <help-echo> h d d SPC 
d d SPC <backspace> SPC n <backspace> p d p p C-x o 
M-x r e p o <tab> r t <tab> <return>

Recent messages:
Type C-x 4 C-o RET to restore the other window, C-M-v to scroll help.
Char: a (97, #o141, #x61) point=379 of 382 (99%) column=0
Getting mail from /var/mail/handa...
Counting new messages...done (5)
Saving file /usr/local/handa/RMAIL...
Wrote /usr/local/handa/RMAIL
Computing summary lines...done
5 new messages read
Computing summary lines...done
Making completion list...

Load-path shadows:
/usr/local/share/emacs/site-lisp/ndspell hides /usr/local/share/emacs/site-lisp/lookup/ndspell
/usr/local/share/emacs/site-lisp/ndeb hides /usr/local/share/emacs/site-lisp/lookup/ndeb
/usr/local/share/emacs/site-lisp/ndtp hides /usr/local/share/emacs/site-lisp/lookup/ndtp
/usr/local/share/emacs/site-lisp/sdicf hides /usr/local/share/emacs/site-lisp/lookup/sdicf
/usr/local/share/emacs/site-lisp/lookup hides /usr/local/share/emacs/site-lisp/lookup/lookup
/usr/local/share/emacs/site-lisp/ndkks hides /usr/local/share/emacs/site-lisp/lookup/ndkks
/usr/local/share/emacs/site-lisp/ndict hides /usr/local/share/emacs/site-lisp/lookup/ndict
/usr/local/share/emacs/site-lisp/ndcookie hides /usr/local/share/emacs/site-lisp/lookup/ndcookie
/usr/local/share/emacs/site-lisp/stem-english hides /usr/local/share/emacs/site-lisp/lookup/stem-english
/usr/local/share/emacs/site-lisp/ndsrd hides /usr/local/share/emacs/site-lisp/lookup/ndsrd
/usr/local/share/emacs/site-lisp/lookup-utils hides /usr/local/share/emacs/site-lisp/lookup/lookup-utils
/usr/local/share/emacs/site-lisp/lookup-vars hides /usr/local/share/emacs/site-lisp/lookup/lookup-vars
/usr/local/share/emacs/site-lisp/lookup-types hides /usr/local/share/emacs/site-lisp/lookup/lookup-types
/usr/local/share/emacs/site-lisp/ndic hides /usr/local/share/emacs/site-lisp/lookup/ndic
/usr/local/share/emacs/site-lisp/lookup-select hides /usr/local/share/emacs/site-lisp/lookup/lookup-select
/usr/local/share/emacs/site-lisp/lookup-content hides /usr/local/share/emacs/site-lisp/lookup/lookup-content
/usr/local/share/emacs/site-lisp/rmail-mime/mime/pgg-pgp5 hides /usr/local/work/emacs/lisp/pgg-pgp5
/usr/local/share/emacs/site-lisp/rmail-mime/mime/pgg-def hides /usr/local/work/emacs/lisp/pgg-def
/usr/local/share/emacs/site-lisp/rmail-mime/mime/pgg-parse hides /usr/local/work/emacs/lisp/pgg-parse
/usr/local/share/emacs/site-lisp/rmail-mime/mime/pgg-pgp hides /usr/local/work/emacs/lisp/pgg-pgp
/usr/local/share/emacs/site-lisp/rmail-mime/mime/pgg hides /usr/local/work/emacs/lisp/pgg
/usr/local/share/emacs/site-lisp/rmail-mime/mail/sha1 hides /usr/local/work/emacs/lisp/sha1
/usr/local/share/emacs/site-lisp/rmail-mime/mail/hex-util hides /usr/local/work/emacs/lisp/hex-util
/usr/local/share/emacs/site-lisp/rmail-mime/mime/pgg-gpg hides /usr/local/work/emacs/lisp/pgg-gpg
/usr/local/work/emacs/lisp/subword hides /usr/local/work/emacs/lisp/progmodes/subword
~/gud/gud hides /usr/local/work/emacs/lisp/progmodes/gud
/usr/local/share/emacs/site-lisp/rmail-mime/mail/sasl-digest hides /usr/local/work/emacs/lisp/net/sasl-digest
/usr/local/share/emacs/site-lisp/rmail-mime/mail/hmac-md5 hides /usr/local/work/emacs/lisp/net/hmac-md5
/usr/local/share/emacs/site-lisp/rmail-mime/mail/sasl hides /usr/local/work/emacs/lisp/net/sasl
/usr/local/share/emacs/site-lisp/rmail-mime/mail/sasl-cram hides /usr/local/work/emacs/lisp/net/sasl-cram
/usr/local/share/emacs/site-lisp/rmail-mime/mail/hmac-def hides /usr/local/work/emacs/lisp/net/hmac-def
/usr/local/share/emacs/site-lisp/rmail-mime/mail/feedmail hides /usr/local/work/emacs/lisp/mail/feedmail
/usr/local/share/emacs/site-lisp/rmail-mime/mail/smtpmail hides /usr/local/work/emacs/lisp/mail/smtpmail
/usr/local/share/emacs/site-lisp/rmail-mime/mime/smime hides /usr/local/work/emacs/lisp/gnus/smime
/usr/local/work/emacs/lisp/language/thai-word hides ~/emacslisp/thai-word
/usr/local/work/emacs/lisp/textmodes/tex-mode hides ~/emacslisp/tex-mode
/usr/local/work/emacs/lisp/textmodes/table hides ~/emacslisp/table
/usr/local/work/emacs/lisp/emacs-lisp/syntax hides ~/emacslisp/syntax
/usr/local/work/emacs/lisp/progmodes/prolog hides ~/emacslisp/prolog

Features:
(shadow emacsbug descr-text thai-util thai-word lao-util
image-mode add-log novice cc-mode cc-fonts cc-menus cc-cmds
cc-styles cc-align cc-engine cc-vars cc-defs autoconf
autoconf-mode shell gnus-msg gnus-art mm-uu mml2015
epg-config mm-view smime mel mime-def alist mcharset mcs-20
mcs-e20 path-util apel-ver product gnus-sum nnoo gnus-group
gnus-undo nnmail mail-source format-spec gnus-start
gnus-spec gnus-int gnus-range gnus-win gnus gnus-ems sort
supercite easy-mmode regi ja-dic mule-util kkc ja-dic-utl
quail debug cus-start cus-load dabbrev thingatpt browse-url
mail-extr message ecomplete rfc822 mml mml-sec
password-cache mm-decode mm-bodies mm-encode mailcap
mail-parse rfc2231 mailabbrev nnheader gnus-util netrc
gmm-utils wid-edit mailheader canlock sha1 hex-util hashcash
etags grep compile comint ring parse-time vc-cvs find-func
pp help-mode easymenu view help-fns multi-isearch rmailkwd
time sendmail regexp-opt rmail-sa rmailsum rmail mail-utils
rfc2047 rfc2045 ietf-drums time-date qp mm-util mail-prsvr
japan-util tooltip ediff-hook vc-hooks lisp-float-type
mwheel x-win x-dnd font-setting tool-bar dnd fontset image
fringe lisp-mode register page menu-bar rfn-eshadow timer
select scroll-bar mldrag mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese hebrew
greek romanian slovak czech european ethiopic indian
cyrillic chinese case-table epa-hook jka-cmpr-hook help
simple abbrev loaddefs button minibuffer faces cus-face
text-properties overlay md5 base64 format env code-pages
mule custom widget hashtable-print-readable backquote
make-network-process dbusbind font-render-setting gtk
x-toolkit x multi-tty emacs)