[notmuch] Add refresh script.

diff --git a/conf/home/emacs.scm b/conf/home/emacs.scm
index 72e53021e31113347fe32957c7b50339cd595820..8581f1120bf3eebb3743a299dc3e63ad2feee2b3 100644 (file)
--- a/conf/home/emacs.scm
+++ b/conf/home/emacs.scm
@@ -88,7 +88,8 @@
                   msmtp))
            (dotfiles
             (list "bash/.config/profile.d/50-notmuch.sh"
-                  "emacs/.config/emacs/conf/conf-email.el")))))
+                  "emacs/.config/emacs/conf/conf-email.el"
+                  "email/.local/mail/.hooks/pre-new")))))
 
 (define emacs-keys-service
   (service home-program-service-type

diff --git a/email/.local/mail/.hooks/pre-new b/email/.local/mail/.hooks/pre-new
new file mode 100755 (executable)
index 0000000..f1821f1
--- /dev/null
+++ b/email/.local/mail/.hooks/pre-new
@@ -0,0 +1,6 @@
+#!/bin/sh
+# Copyright (c) 2022-2023 Jakub Czajka <jakub@ekhem.eu.org>
+# License: GPL-3.0 or later.
+
+notmuch search --output=files tag:deleted | xargs -l rm
+mbsync --config ~/.config/isync/mbsyncrc --all