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

Merci la ML A<3 -_-

diff --git a/.procmailrc b/.procmailrc
index bcef89e7a37625863a877e735a5e8459f5089076..b8b46db9d85039b9f2ac7f0cccd234a7d4ebfebb 100644 (file)
--- a/.procmailrc
+++ b/.procmailrc
@@ -810,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               ##