#!/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 -eux
exec 2>&1

draft_headers=$(sed -ne '1,/^$/p' "$1" | egrep -i '^(X-Draft:|Subject:.*[[(]?(Draft|Entwurf)[])]?)' || :)

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 draft tag is present."
  exit 1
fi

set +x