// Avec fonction AjouteFavo pour ajouter aux favoris

// 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, "*", "@");
 LeLien = Remplace (LeLien, "¤", "org");
 LeLien = Remplace (LeLien, "§", "Contact");
 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 = "§*assbc,¤?subject=Nous%20contacter,,,";

// Ajouter aux favoris :

function AjouteFavo() {
    if (document.all) {
        window.external.AddFavorite("http://www.bibledespeuples.org/LecturesJour/","Lectures du jour");
    } else if (window.sidebar) {
        window.sidebar.addPanel("Lectures du jour", "http://www.bibledespeuples.org/LecturesJour/", "");
    } else {
        alert("Désolé ! Ça ne fonctionne pas avec votre navigateur !");
    }
}