From: Ismaël Bouya <ismael.bouya@normalesup.org>
Date: Fri, 17 Jan 2020 16:58:08 +0000 (+0100)
Subject: Fix Backup mailboxes expunging
X-Git-Url: https://git.immae.eu/?a=commitdiff_plain;h=5dc338f00bb37519260ffa07f2ccbb80b0abc833;hp=ef0a9217fba817d7fb71ccd4cca65919dd89ebec;p=perso%2FImmae%2FConfig%2FNix.git

Fix Backup mailboxes expunging
---

diff --git a/modules/private/mail/dovecot.nix b/modules/private/mail/dovecot.nix
index 523c017..9836f78 100644
--- a/modules/private/mail/dovecot.nix
+++ b/modules/private/mail/dovecot.nix
@@ -261,7 +261,7 @@ in
 
     services.cron.systemCronJobs = let
       cron_script = pkgs.writeScriptBin "cleanup-imap-folders" ''
-        ${pkgs.dovecot}/bin/doveadm expunge -A MAILBOX "Backup/*" NOT UID 1:256 2>&1 > /dev/null | grep -v "Mailbox doesn't exist:" | grep -v "Info: Opening DB"
+        ${pkgs.dovecot}/bin/doveadm expunge -A MAILBOX "Backup/*" NOT FLAGGED BEFORE 8w 2>&1 > /dev/null | grep -v "Mailbox doesn't exist:" | grep -v "Info: Opening DB"
         ${pkgs.dovecot}/bin/doveadm expunge -A MAILBOX Junk SEEN NOT FLAGGED BEFORE 4w 2>&1 > /dev/null | grep -v "Mailbox doesn't exist:" | grep -v "Info: Opening DB"
         ${pkgs.dovecot}/bin/doveadm expunge -A MAILBOX Trash NOT FLAGGED BEFORE 4w 2>&1 > /dev/null | grep -v "Mailbox doesn't exist:" | grep -v "Info: Opening DB"
         '';
diff --git a/modules/private/mail/sieve_scripts/backup.sieve b/modules/private/mail/sieve_scripts/backup.sieve
index c922999..3014c0a 100644
--- a/modules/private/mail/sieve_scripts/backup.sieve
+++ b/modules/private/mail/sieve_scripts/backup.sieve
@@ -1,9 +1,7 @@
 # vim: filetype=sieve
 require ["copy","mailbox","fileinto","regex"];
-if not header :regex "subject" "^TestMailImmae ?$" {
-  if header :is "X-Spam" "Yes" {
-    fileinto :create :copy "Backup/Spam";
-  } else {
-    fileinto :create :copy "Backup/Ham";
-  }
+if header :is "X-Spam" "Yes" {
+  fileinto :create :copy "Backup/Spam";
+} else {
+  fileinto :create :copy "Backup/Ham";
 }