petit bug couper() ne coupait pas bien les sauts de ligne avec _ (et les sauts façon windows \n\r)

ecrire/inc_texte.php3

@@ -260,13 +260,16 @@ function couper($texte, $taille=50) {
 	$texte = substr($texte, 0, 400 + 2*$taille); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
 
 	// on utilise les \r pour passer entre les gouttes
-	$texte = str_replace("\n\r", "\n", $texte);
+	$texte = str_replace("\r\n", "\n", $texte);
 	$texte = str_replace("\r", "\n", $texte);
 
 	// sauts de ligne et paragraphes
 	$texte = ereg_replace("\n\n+", "\r", $texte);
 	$texte = ereg_replace("<(p|br)( [^>]*)?".">", "\r", $texte);
 
+	// supprimer les traits, lignes etc
+	$texte = ereg_replace("(^|\r|\n)(-[-#\*]*|_ )", "\r", $texte);
+
 	// supprimer les tags
 	$texte = supprimer_tags($texte);
 	$texte = trim(str_replace("\n"," ", $texte));
@@ -287,9 +290,6 @@ function couper($texte, $taille=50) {
 	// supprimer les tableaux
 	$texte = ereg_replace("(^|\r)\|.*\|\r", "\r", $texte);
 
-	// supprimer les traits, lignes etc
-	$texte = ereg_replace("(^|\r)-[-#\*]*", "\r", $texte);
-
 	// couper au mot precedent
 	$long = substr($texte, 0, max($taille-4,1));
 	$court = ereg_replace("([^[:space:]][[:space:]]+)[^[:space:]]*\n?$", "\\1", $long);