2022-05-30 02:00:13 +02:00
|
|
|
#!/usr/bin/env sh
|
|
|
|
|
# # -*- mode:scheme; -*-
|
|
|
|
|
IFS=" "
|
|
|
|
|
exec scsh -s "$0" "$@"
|
|
|
|
|
!#
|
2022-05-25 10:47:20 +02:00
|
|
|
|
2022-05-30 02:00:13 +02:00
|
|
|
(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))
|
