l'erreur est là :
if (window.document.formulaire.mail.value='*'+"@"
+'*')
il faut écrire :
if (window.document.formulaire.mail.value=='*'+"@"
+'*')
car le = attribue une valeur, alors que le == est un test d'égalité (c'est ça que tu veux), avec ton code, quoique tu rentres, ça te dira toujours que c'est bon.