spip / SPIP

	// si le sujet est vide, extraire la premiere ligne du corps

	// du mail qui est donc du texte

	if (!strlen($sujet)) {

		// nettoyer un peu les retours chariots

		$texte = str_replace("\r\n", "\r", $texte);

		$texte = str_replace("\r", "\n", $texte);

		// decouper

		$texte = explode("\n", trim($texte));

		// extraire la premiere ligne

		$sujet = array_shift($texte);

		$texte = trim(implode("\n", $texte));

	}

	$envoyer_mail = charger_fonction('envoyer_mail', 'inc');

	foreach ($emails as $email) {

	list($myself) = explode('?', $myself);

	// vieux mode HTTP qui envoie après le nom de la methode l'URL compléte

	// protocole, "://", nom du serveur avant le path dans _SERVER["REQUEST_URI"]

	if (strpos($myself,'://') !== false) {

		$myself = explode('://',$myself);

		array_shift($myself);

		$myself = implode('://',$myself);

		$myself = explode('/',$myself);

		array_shift($myself);

		$myself = implode('/',$myself);

	}

	$url = join('/', array_slice(explode('/', $myself), 0, -1 - $prof)) . '/';

	$url = $http . '://' . rtrim($host, '/') . '/' . ltrim($url, '/');