Re: Petite question sur le message.footer

[Jean Charles Delepine <adresse@cachée>]

Aumont - Comite Reseaux des Universites <adresse@cachée> writes:

> > Bon, il va falloir qe je passe à pgnus ou à mutt :( Et que j'arrête de 
> > raler contre les gus qui envoient des attachements sur les listes.
> 
> Cela me rappelle le débat "faut-il oui ou non accentuer les messages
> dans les listes ? ". On ne peut pas toujours niveler par le bas. Le
> déploiement de MIME c'était pas pour s'interdire de l'utiliser. 

Ne pas se l'interdire ne signifie pas que l'on doive se
l'imposer. Mes utilisateurs étant de furieux rétrogrades (un peu comme
moi), j'ai profité de ce WE pour pondre un petit patch.

J'ai ajouté la possiblilité de créer un fichier message.footer.nomime
qui sera ajouté directement au corps du message si celui-ci n'est pas
d'ors et déjà en multipart (sinon le fichier est ajouté en attachement 
comme un message.footer normal).

> Il y a surement plein d'UA qui ne sont pas mime, mais les UAs MIME sont
> disponibles pour tous très facilement. Autrement dit, il faut encourager
> l'utilisation de messages structurés en MIME quand c'est adapté au
> document échangés via la liste (ce qui ne veut pas dire faire du multipart
> alternative text/html / text/plain systématiquement !).

Comme sympa m'a obligé à passer à une version instable de gnus, vous
trouverez le patch en attachement :-)

             Jean Charles
-- 
> En plus, question "self esteem", Linux, c'est autre chose ("yeah, j'ai
> reussi a compiler un noyau !" :-)
Moi je le fais faire par gcc.
-+- MB in Guide du linuxien pervers - "Bien configurer son égos" -+-
--- sympa-2.2.5/src/List.pm     Wed May 12 16:32:07 1999
+++ sympa-2.2.5-nomime/src/List.pm      Mon May 24 13:46:15 1999
@@ -577,10 +577,11 @@
 
     ## Add trailer
     my $trailer="$listname/$Conf{'message_footer'}";
-    my  $trailermime = $trailer . ".mime";
+    my $trailermime = $trailer . ".mime";
+    my $trailernomime = $trailer . ".nomime";
 
     ## No trailer
-    unless (-f $trailermime or -f $trailer) {
+    unless (-f $trailernomime or -f $trailermime or -f $trailer) {
        return $msg;
     }
 
@@ -591,6 +592,7 @@
     }
     my $parser = new MIME::Parser output_dir     => '/tmp',
                                   output_to_core => 'ALL';
+    my $msg_nomime = $msg;
 
     unless ($msg =~ /^MIME::Entity/) {
        my @lines = (@{$msg->header}, "\n", @{$msg->body});
@@ -612,9 +614,23 @@
                     Type        => "text/plain",
                     Encoding    => "8bit"
                     );
-    }
     
+    ## nomime trailer
+    }elsif (-f $trailernomime && -r $trailernomime) {
 
+      if ($msg->is_multipart) {
+         $msg->attach(Path        => $trailernomime,
+                      Type        => "text/plain",
+                      Encoding    => "8bit"
+                      );
+      } else {
+          open (TRAILERNOMIME,"$trailernomime") or return undef;
+          push @{$msg_nomime->body},"\n-- \n",<TRAILERNOMIME>;
+          close (TRAILERNOMIME);
+          $msg = $msg_nomime
+      }
+    }
+ 
     return $msg;
 }
 
Home-page de Sympa :      http://listes.cru.fr/sympa/