petite correction pour tools.pl

[Olivier LACROIX <adresse@cachée>]

Désolé, j'envoie encore un message, mais c'était mon après-midi sympa.

J'ai une petite correction pour le programme tools.pl : l'erreur d'aiguillage 
n'ajoute pas l'entête Mime de fr.cat et "fin du message suspect" est en 
français alors qu'il devrait être en anglais (puisque traduit dans fr.cat).

Ci-dessous le patch.

*** tools.pl.orig	Mon Feb  2 17:44:43 1998
--- tools.pl	Fri Mar 27 16:58:38 1998
***************
*** 93,99 ****
  
     *REJ = smtp::smtpto(\$Conf{'request'}, \$sender);
     print REJ "To: $sender\n";
!    print REJ "Subject: [sympa] " . Msg(5, 2, "Misadressed message ?") . "\n\n";
     printf REJ Msg(5, 3, "\
  Your message has been sent to a list but it seems it contains commands like
  subscribe, signoff, help, index, get, ...
--- 93,103 ----
  
     *REJ = smtp::smtpto(\$Conf{'request'}, \$sender);
     print REJ "To: $sender\n";
!    print REJ "Subject: [sympa] " . Msg(5, 2, "Misadressed message ?") . "\n";
!    print REJ $_ if ($_ = Msg(12, 1, undef));
!    print REJ $_ if ($_ = Msg(12, 2, undef));
!    print REJ $_ if ($_ = Msg(12, 3, undef));
!    print REJ "\n";
     printf REJ Msg(5, 3, "\
  Your message has been sent to a list but it seems it contains commands like
  subscribe, signoff, help, index, get, ...
***************
*** 110,116 ****
  ------ Beginning of the suspect message --------
  "), $Conf{'sympa'}, $Conf{'request'};
     $msg->print(\*REJ);
!    print REJ Msg(5, 4, "------- Fin message suspect ---------\n");
     close(REJ);
  }
  
--- 114,120 ----
  ------ Beginning of the suspect message --------
  "), $Conf{'sympa'}, $Conf{'request'};
     $msg->print(\*REJ);
!    print REJ Msg(5, 4, "------- End of the suspect message ---------\n");
     close(REJ);
  }
  

 Olivier LACROIX

 C.I.R.I.L.
 Chateau du Montet      |  Tel   : +33 3.83.44.74.29
 Rue du Doyen Roubault  |  Fax   : +33 3.83.44.02.62
 F - 54500 VANDOEUVRE   |  email : adresse@cachée