oubli MIME

[Olivier LACROIX <adresse@cachée>]

Bonjour.

L'entête MIME rajoutée par Christophe fonctionne bien, mais n'est pas 
présente 
dans tous les cas.

Lors de l'envoi de la commande 'info <liste'>, 2 messages sont générés :
le 1er envoyé par sympa@domaine avec le compte-rendu de la requête : il 
contient l'entête MIME
le 2e envoyé par sympa-request@domaine contient le fichier bienvenue : 
celui-là n'a pas l'entête MIME

Le problème vient du module mail.pl qui n'utilise pas les les entêtes MIME du 
fichier fr.msg.

J'ai modifié mail.pl pour les ajouter. Je vous joins ci-dessous le patch.

*** mail.pl.orig	Mon Sep 15 18:28:10 1997
--- mail.pl	Thu Jan 29 09:58:31 1998
***************
*** 7,12 ****
--- 7,13 ----
  
  use Conf;
  use Log;
+ use Language;
  
  ## RCS identification.
  my $id = '@(#)$Id: mail.pl,v 1.5 1997/09/15 16:28:03 sympa Exp $';
***************
*** 18,24 ****
  
     my $fh = smtp::smtpto(\$Conf{'request'}, \@rcpt);
     printf $fh "To:  %s\n", join(",\n   ", @rcpt);
!    print $fh "Subject: $subject\n\n";
     if (ref($data) eq 'SCALAR') {
        print $fh $$data;
     } elsif (ref($data) eq 'ARRAY') {
--- 19,29 ----
  
     my $fh = smtp::smtpto(\$Conf{'request'}, \@rcpt);
     printf $fh "To:  %s\n", join(",\n   ", @rcpt);
!    print $fh "Subject: $subject\n";
!    print $fh $_ if ($_ = Msg(12, 1, undef));
!    print $fh $_ if ($_ = Msg(12, 2, undef));
!    print $fh $_ if ($_ = Msg(12, 3, undef));
!    print $fh "\n";
     if (ref($data) eq 'SCALAR') {
        print $fh $$data;
     } elsif (ref($data) eq 'ARRAY') {
***************
*** 37,43 ****
     }
     my($fh) = &smtp::smtpto(\$Conf{'request'}, \@rcpt);
     printf $fh "To: %s\n", join(",\n   ", @rcpt);
!    print $fh "Subject: $subject\n\n";
     print $fh $i while ($i = <IN>);
     close($fh);
  }
--- 42,52 ----
     }
     my($fh) = &smtp::smtpto(\$Conf{'request'}, \@rcpt);
     printf $fh "To: %s\n", join(",\n   ", @rcpt);
!    print $fh "Subject: $subject\n";
!    print $fh $_ if ($_ = Msg(12, 1, undef));
!    print $fh $_ if ($_ = Msg(12, 2, undef));
!    print $fh $_ if ($_ = Msg(12, 3, undef));
!    print $fh "\n";
     print $fh $i while ($i = <IN>);
     close($fh);
  }

 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