%%% email-fr.hph, input by fr-us.tex
  %% Part of format-dumper, master posting on
  %% ftp matups.math.u-psud.fr
  %% Serves to define artificial language \l@emailFR 
  %% whose hyphenations patterns permit 
  %% email-fr.fix (ibid in TypingTeX.dir/email.dir)
  %% to fix common accent errors: 'e for /e  and 'E for /e
  %% in the succinct French accent typing style of email-fr.tex

 \begingroup
 \catcode`\@=11

 \gdef\InstallEmailFR{{
 %
  {\catcode32=12\relax\gdef\OtherSp@{ }}
  %
   \catcode`\'=12
   \catcode`\?=12
   \catcode`\-=12
  %
   \lccode`\'=`\' %
   \lccode`\?=`\? %
   \lccode`\-=`\- %
   \lccode32=32 %
  
  %%% use special language for compatibility with other formats
  \csname newlanguage\endcsname\l@emailFR
  \language=\l@emailFR
  %%
 \patterns{%
  %%.c3? .d3? .j3? .l3? .m3? .n3? .qu3? .s3? .t3? %% not needed
  %% but could be used with "three syllable" criterion
  ?3eff ?3ect ?3ecze
  ?3edel 
  ?3eid  ?3einst  ?3elb  ?3eld  
  ?3ell  
  ?3emb
  ?3emm  ?3emp  
  ?3en.
  ?3en-
  ?3enc  ?3end  ?3enf  ?3eng 
  ?3enh  ?3enivr  ?3enj  ?3enk  ?3enl ?3enn  
  ?3enq  ?3enr  ?3ens  ?3ent  ?3env  ?3enz 
  ?3erb  ?3erg  ?3erm  ?3erp  ?3err  ?3ers
  ?3esb  ?3esc  ?3esg  ?3esk  ?3esp  ?3ess ?3est  
  ?3ethn
  ?3eu 
  ?3evzone
  ?3ex
  ?3ey 
  %% ecceptions from Greek
  ?3ego 
  ?3egos-
  %% exceptions from Computer Sci
  ?3email 
  ?3emacs 
  ?3e- 
  %% Proper names
  .S?4ego.
 %% Quandry in French: signal by >>2 syllables (not yet)
  %.n3?3e3s.
  %% test
  zz3zz 
  }
  %
  \global\let\Install@EmailFR\relax
  }}


 \endgroup

 \InstallEmailFR