#!/usr/bin/env sh
# # -*- mode:scheme; -*-
IFS=" "
exec scsh -s "$0" "$@"
!#

(define deleted
  (run/sexp (notmuch search --output=files --format=sexp tag:deleted)))

(if (> (length deleted) 0)
    (map (lambda (mail) (run (rm -v ,mail))) deleted))

(run (mbsync -a))