Faire suivre par mail les messages du forum privé

include("inc_mail.php3");

 
if ($modif_forum != "oui") $titre_message = ereg_replace("^([^>])", "> \\1", $titre_message);
$nom = entites_html(corriger_caracteres($connect_nom));
$adresse_retour = rawurldecode($adresse_retour);

if ($valider_forum AND ($statut!='')) {
	$titre_message = addslashes(corriger_caracteres($titre_message));
	$texte = addslashes(corriger_caracteres($texte));
	$query = "INSERT INTO spip_forum (titre, texte, date_heure, nom_site, url_site, statut, id_auteur, auteur, email_auteur, id_rubrique, id_parent, id_article, id_breve, id_message, id_syndic) ".
	"VALUES (\"$titre_message\", \"$texte\", NOW(), \"$nom_site\", \"$url_site\", \"$statut\", \"$connect_id_auteur\", \"$nom\", '$connect_email', '$id_rubrique', '$id_parent', '$id_article', '$id_breve', '$id_message', '$id_syndic')";
	$result = spip_query($query);

	// DEBUT COPIER-COLLER
	$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