rename thorndon mailing list

[etc/mutt.git] / .mutt / sendmail-checks.d / prevent-draft

diff --git a/.mutt/sendmail-checks.d/prevent-draft b/.mutt/sendmail-checks.d/prevent-draft
index 4c9480306bd45fb8f11dde2b3635404ba1f35dcf..314dfd386c22e4fd97f11b2ff740309882fddf7d 100755 (executable)
--- a/.mutt/sendmail-checks.d/prevent-draft
+++ b/.mutt/sendmail-checks.d/prevent-draft
@@ -7,7 +7,11 @@
 #
 set -eu
 
-if grep -iq '^X-Draft:' $1; then
-  echo >&2 "E: will not send this message while the X-Draft header is present"
+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