X-Git-Url: https://git.madduck.net/etc/mutt.git/blobdiff_plain/a83d50d5a64488deb3796bbd0ca0a03b0516cc77..7013dfe93a05082153f79eca6c9e5c05b54d9d50:/.config/mutt/sendmail-checks.d/prevent-draft

diff --git a/.config/mutt/sendmail-checks.d/prevent-draft b/.config/mutt/sendmail-checks.d/prevent-draft
new file mode 100755
index 0000000..314dfd3
--- /dev/null
+++ b/.config/mutt/sendmail-checks.d/prevent-draft
@@ -0,0 +1,17 @@
+#!/bin/sh
+#
+# prevent-draft – prevent sending a message while an X-Draft header exists
+#
+# Copyright © 2010 martin f. krafft <madduck@madduck.net>
+# Released under the terms of the Artistic Licence 2.0
+#
+set -eu
+
+draft_headers=$(sed -ne '1,/^$/p' "$1" | egrep -i '^(X-Draft:|(To|Cc):.*[-_]DRAFT)' || :)
+
+if [ -n "$draft_headers" ]; then
+  echo "$draft_headers" | egrep -iq '^X-Draft: (ok|no)' && exit 0
+  echo >&2 "E: will not send this message while the X-Draft header or"
+  echo >&2 "E: a subject or receipient draft tag is present."
+  exit 1
+fi