// Paramètres à passer : NomDuLien, LeLien, Affichage
// 1. NomDuLien doit se retrouver dans body : <a name=NomDuLien href="mailto:nospam">...
// 2. LeLien : c'est le lien, en remplaçant point par virgule, et arobase par astérisque. Peut être suivi de "?subject=..."
// 3. Le texte à afficher. Si chaîne vide, le lien lui-même sera affiché (sans "?subject=..." s'il y est).

// Remplacer des sous-chaînes dans une chaîne :
// Chaine = chaîne où faire les remplacements
// Quoi   = sous-chaîne à remplacer. Toutes les occurrences sont prises en compte.
// Par    = sous-chaîne remplaçante
// retour = la nouvelle chaîne, modifiée.
function Remplace (Chaine, Quoi, Par)
{ var j = 0;
  j = Chaine.indexOf (Quoi, j);
  { while (j >= 0)
    { Chaine = Chaine.substring (0, j) + Par + Chaine.substring (j + Quoi.length, Chaine.length);
      j = Chaine.indexOf (Quoi, j + Par.length);
    }
    return Chaine;
  }

}

function Melmel (NomDuLien, LeLien, Affichage)  // Mets le Mail ! ouaf ouaf !
{var fois = 0;
 LeLien = Remplace (LeLien, ",", ".");
 LeLien = Remplace (LeLien, "*", "@");
 if (Affichage == "")
 {
     var j = LeLien.indexOf ("?");
     if (j == -1)
     { Affichage = LeLien; }
     else { Affichage = LeLien.substring (0, j); }
 }
 for (var i=0; i < document.links.length; ++i)
   {if (document.links[i].name == NomDuLien)
     {fois += 1;
      document.links[i].href="mailto:" + LeLien;
     }
   }
 if (fois > 0)
    {document.write (Affichage);}
}

// Exemple d'untilisation (dans body) :
// <a name=Lien1 href="mailto:nospam">
// <script type=text/javascript>
//  Melmel( "Lien1", "jules,tartempion*domaine,fr", "");
// </script></a>
         // Affichera le lien : jules.tartempion@domaine.fr
// <a name=Lien2 href="mailto:nospam">
// <script type=text/javascript>
// Melmel ("Lien2", "contact*trucmuche,org?subject=Nous%20contacter,,,", "Nous contacter...");</script></a>
         // Affichera : "Nous contacter..." et le lien sera : contact@trucmuche.org (objet : "Nous contacter...")

// Pour ne rien laisser dans le fichier, on peut mettre les liens ici :

var MailAssbc = "contact*assbc,org?subject=Nous%20contacter,,,";