extract additional rcpts from x-bcc-spool header

[etc/mutt.git] / .mutt / sendmail

diff --git a/.mutt/sendmail b/.mutt/sendmail
index 3096fb05194641f21c5f4e903bd12ec5da4a9938..48b5e6355b73cb388e64bb9617910ee41f8ca807 100755 (executable)
--- a/.mutt/sendmail
+++ b/.mutt/sendmail
@@ -1,5 +1,39 @@
 #!/bin/sh
+#
+# mutt/sendmail – sendmail wrapper to enforce some checks on outgoing mails
+#
+# The script basically just creates a temporary file and then invokes any
+# executable scripts in ~/.mutt/sendmail-checks.d in run-parts style. They
+# receive the filename of a temporary file holding the message to be sent as
+# $1, followed by all recipients as determined by mutt.
+#
+# Copyright © 2010 martin f. krafft <madduck@madduck.net>
+# Released under the terms of the Artistic Licence 2.0
+#
 set -eu
 
-OUTGOING=~/mail-seamus/outgoing
-exec safecat $OUTGOING/tmp $OUTGOING/cur
+CHECKSDIR="$HOME/.mutt/sendmail-checks.d"
+SENDMAIL="/usr/sbin/sendmail -oem -oi"
+
+TMPFILE=$(tempfile -p mutt-sendmail -s .msg)
+settrap () { trap "$@" 0 1 2 3 4 5 6 7 8 10 11 12 13 14 15; }
+cleanup () { rm -f "$TMPFILE"; settrap -; }
+settrap cleanup
+
+argtype=s
+recipients= sendmail_args=
+for i in "$@"; do
+  case "$argtype/$i" in
+    (s/--) argtype=r;;
+    (s/*) sendmail_args="${sendmail_args} $i";;
+    (r/*) recipients="${recipients} $i";;
+  esac
+done
+
+cat > $TMPFILE
+recipients="$recipients $(formail -czx X-Bcc-Spool: < "$TMPFILE" | tr -d ',')"
+args=$(for i in $recipients; do echo "--arg=$i"; done)
+run-parts --umask=0077 --arg="$TMPFILE" $args -- "$CHECKSDIR"
+formail -I X-Spool-Bcc: < "$TMPFILE" | eval $SENDMAIL "$sendmail_args" -- "$recipients"
+
+cleanup