/*
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
ecrireA2(adr);
}
function ecrireW(adr){// adresses protegees precodees
ecrireA2(adr);      
}
*/

// fonction pour la version spip
function ecrireA(adr){
    a=adr.lastIndexOf("-ici-");
    adr1=adr.substring(0,adr.lastIndexOf("-ici-"))
    adr2=adr.substring(adr1.length+5,adr.length);
    appelwin="./squelettes/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");
}