hosts/mermet/dovecot/sieve/global/list.sieve

   1 require [ "date", "envelope", "fileinto", "mailbox", "subaddress", "variables" ];
   2
   3 #if currentdate :matches "year"  "*" { set "year"  "${1}"; }
   4 #if currentdate :matches "month" "*" { set "month" "${1}"; }
   5
   6 if exists "X-MC-User" {
   7   if header :matches "From" "*<*@*.asso.fr>*" {
   8     fileinto :create "Listes+${3}";
   9     stop;
  10   }
  11   elsif header :matches "From" "*<*@*.*>*" {
  12     fileinto :create "Listes+${3}+${2}";
  13     stop;
  14   }
  15 }
  16 elsif exists "List-Id" {
  17   if header :matches "List-Id" "*<*/*.*.lists.sr.ht>*" {
  18     if allof (not string :is "${2}" "", not string :is "${3}" "", not string :is "${4}" "")  {
  19       fileinto :create "Listes+sr-ht+${2}+${3}+${4}";
  20       stop;
  21     }
  22   }
  23   elsif header :matches "List-Id" "*<*/*.lists.sr.ht>*" {
  24     if allof (not string :is "${2}" "", not string :is "${3}" "")  {
  25       fileinto :create "Listes+sr.ht+${2}+${3}";
  26       stop;
  27     }
  28   }
  29   elsif header :matches "List-Id" "*<*.*.*.*>*" {
  30     if allof (not string :is "${2}" "", not string :is "${3}" "", not string :is "${4}" "")  {
  31       fileinto :create "Listes+${4}+${3}+${2}";
  32       stop;
  33     }
  34   }
  35   elsif header :matches "List-Id" "*<*.*.*>*" {
  36     if allof (not string :is "${2}" "", not string :is "${3}" "")  {
  37       fileinto :create "Listes+${3}+${2}";
  38       stop;
  39     }
  40   }
  41 }
  42
  43 if envelope :matches :detail "TO" "*" { set "extension" "${1}"; }
  44 if not string :is "${extension}" "" {
  45   fileinto :create "Listes+${extension}";
  46   stop;
  47 }