Envoyer par mail les messages du forum de la partie privee

 // DEBUT COPIER-COLLER
       include("inc_mail.php3");
       $adresse_site = lire_meta("adresse_site");
       $nom_site_spip = lire_meta("nom_site");
       $url = "$adresse_site/ecrire/articles.php3?id_article=$id_article";
       $courr = "(ceci est un message automatique)\n";
       $courr .= "Message poste dans la partie privee";
       if (strlen($auteur) > 2) {
               $courr .= "par $nom ";
               if ($email_auteur) $courr .= "<$email_auteur> ";
       }
       $courr .= "a la suite de votre article propose a l'evaluation.\n\n";
       $courr .= "Ne repondez pas a ce mail mais sur le forum a l'adresse suivante :\n";
       $courr .= "$url\n";
       $courr .= "\n\n".$titre_message."\n\n".textebrut(propre(stripslashes($texte)))."\n";
       $sujet = "[$nom_site_spip]$titre_message [forum-partie privee]";
       $query = "SELECT spip_auteurs.* FROM spip_auteurs, spip_auteurs_articles AS lien WHERE lien.id_article='$id_article' AND spip_auteurs.id_auteur=lien.id_auteur";
       $result = spip_query($query);

       while ($row = spip_fetch_array($result)) {
               $email_auteur = trim($row["email"]);
               if (strlen($email_auteur) < 3) continue;
               envoyer_mail($email_auteur, $sujet, $courr);
       }
       // FIN COPIER-COLLER