function str_replace(p,rpl,par) { //dans p, par remplace rpl
l_test=rpl.length;
for (i=0;i<p.length; i++) {
     if (p.substring(i,i+l_test)==rpl) {
     break;
     }
   }
p1=p.substring(0,i);
p2=p.substring(i+l_test,p.length);
p=p1+par+p2;
return p
}
function ecrireA(adr) { // appelle le mailing pour l'adresse corrigee
rpl="-ici-"; //definit le separateur de protection
par="@";     //remplace le separateur
g_adr=str_replace(adr,rpl,par);
location="mailto:"+g_adr;
return;
}
// fonction pour la version spip
function ecrireA2(adr){

a=adr.lastIndexOf("-ici-");

adr1=adr.substring(0,adr.lastIndexOf("-ici-"))
adr2=adr.substring(adr1.length+5,adr.length);
appelwin="courrier.php?adr1="+adr1+"&adr2="+adr2;
//alert (adr1+'@'+adr2);
//alert (appelwin);

window.open(appelwin,"Envoyer_un_email","width=800,height=600,left=100,top=100,menubar=no,resizable=no,scrollbars=no,status=no,titlebar=no,toolbar=no");


}