sieve filter to create new List mailboxes according to List-ID value

list_fileinto.sieve

#require ["fileinto", "mailbox", "variables", "vnd.dovecot.debug", "regex"];
require ["fileinto", "mailbox", "variables", "regex", "vnd.dovecot.execute"];

if not exists "X-GitHub-Recipient" {
  if header :regex :comparator "i;octet" "list-id" "(.*)" {
      #set :lower "listid_raw" "${1}";
      execute :input "${1}" :output "listid" "sanitize_name.sh";

      fileinto :create "INBOX.Lists.${listid}";
      stop;
  } elsif header :matches :comparator "i;octet" "list-id" "*" {
    fileinto "INBOX.Lists";
    stop;
  }
}

if exists "X-GitHub-Recipient" {
    fileinto "INBOX.github";
    stop;
}

sanitize_names.sh

#!/bin/sh
export LC_ALL=C
tr --squeeze-repeats '[:space:]' '_' | tr --squeeze-repeats '[:punct:]' '-' | tr --squeeze-repeats --delete  '[:cntrl:]' '' | tr --squeeze-repeats --delete '[:blank:]' '' | sed -e 's/^[[:punct:]]*//' -e "s/[[:punct:]]*$//g"