anchor.diff:    listAddress = domain: list: "${list}@${domain}";
     customHeaders = domain: list: [ "List-Id: ${list}" "Reply-To: ${list}@${domain}" ];
     footer = domain: list: "To unsubscribe send a mail to ${list}+unsubscribe@${domain}";
  -  createList = d: l: ''
  -    ${pkgs.coreutils}/bin/mkdir -p ${listCtl d l}
  -    echo ${listAddress d l} > ${listCtl d l}/listaddress
  -    echo "${lib.concatStringsSep "\n" (customHeaders d l)}" > ${listCtl d l}/customheaders
  -    echo ${footer d l} > ${listCtl d l}/footer
  -    echo ${subjectPrefix l} > ${listCtl d l}/prefix
  -  '';
  +  createList = d: l:
  +    let ctlDir = listCtl d l; in
  +    ''
  +      for DIR in incoming queue queue/discarded archive text subconf unsubconf \
  +                 bounce control moderation subscribers.d digesters.d requeue \
  +                 nomailsubs.d
  +      do
  +             mkdir -p '${listDir d l}'/"$DIR"
  +      done
  +      ${pkgs.coreutils}/bin/mkdir -p ${ctlDir}
  +      echo ${listAddress d l} > '${ctlDir}/listaddress'
  +      [ ! -e ${ctlDir}/customheaders ] && \
  +          echo "${lib.concatStringsSep "\n" (customHeaders d l)}" > '${ctlDir}/customheaders'
  +      [ ! -e ${ctlDir}/footer ] && \
  +          echo ${footer d l} > '${ctlDir}/footer'
  +      [ ! -e ${ctlDir}/prefix ] && \
  +          echo ${subjectPrefix l} > '${ctlDir}/prefix'
  +    '';
   in
   
   {
  
positive.code:         mlmmj unix - n n - - pipe flags=ORhu user=mlmmj argv=${pkgs.mlmmj}/bin/mlmmj-receive -F -L ${spoolDir}/$nexthop
        '';
  
        extraAliases = concatMapStrings (alias cfg.listDomain) cfg.mailLists;
  
        extraConfig = ''
          transport_maps = hash:${stateDir}/transports
  
negative.code: with lib;
  
  let
  
    concatMapLines = f: l: lib.concatStringsSep "\n" (map f l);
  
    cfg = config.services.mlmmj;
    stateDir = "/var/lib/mlmmj";
  