#!/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:|Subject:.*[[(]?(Draft|Entwurf)[])]?|(To|Cc):.*[-_]DRAFT)' || :)

if [ -n "$draft_headers" ] && ! echo "$draft_headers" | egrep -viq '^X-Draft: (ok|no)'; then
  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