Attention, la description d'une mailing-list avec le List-ID peut contenir un "<"

[config-20-100.git] / .procmailrc

diff --git a/.procmailrc b/.procmailrc
index a9d8e6a44efd6180dae4da5896cc72a692a20b23..b8b46db9d85039b9f2ac7f0cccd234a7d4ebfebb 100644 (file)
--- a/.procmailrc
+++ b/.procmailrc
@@ -254,14 +254,12 @@ SPAMDIR=".Spam"
 # Spam reçu sur (usenet|news)@(crans.org|crans.ens-cachan.fr)
 SPAMINNDIR="${SPAMDIR}.usenet"
 
-
 ### Dossiers pour les MLs qui ne sont pas catchées par une autre règle
 ## Dossier racine
 MLDIR=".ML"
 ## Dossier pour ranger les rappels de mots de passes envoyés par Mailman
 RAPPELMDPDIR="${MLDIR}.rappels_mdp"
 
-
 ### Dossiers pour les MLs du campus
 MLCAMPUSDIR="${MLDIR}.Campus"
 MLBDEDIR="${MLCAMPUSDIR}.BDE"
@@ -812,7 +810,7 @@ LISTID=| formail -cXList-ID: | perl -MEncode -pe '$_=encode("utf-8",decode("MIME
 # On récupère tous les mails qui sont arrivés par l'intermédaire d'une ML
 * ^List-Id:.*
 {
-  ML=`echo "${LISTID}" | sed 's/[^<]*<//;s/>//'`
+  ML=`echo "${LISTID}" | sed 's/.*<\([^<>]\+\)>$/\1/'`
   
   #################################################################
   ##              Gestion des mailing-listes Cr@ns               ##