make acked recipients check case-insensitive

[etc/mutt.git] / .mutt / sendmail-checks.d / ack-recipients

diff --git a/.mutt/sendmail-checks.d/ack-recipients b/.mutt/sendmail-checks.d/ack-recipients
index d22eb6b96b55779334d1681a4360573da1a27b7c..f461462b6f4812506f2b6662e04ad209896c720a 100755 (executable)
--- a/.mutt/sendmail-checks.d/ack-recipients
+++ b/.mutt/sendmail-checks.d/ack-recipients
@@ -6,6 +6,16 @@
 # are not individually "signed-off" by adding their e-mail addresses to the
 # X-Acked header. This header is removed from the mail before it is sent.
 #
+# The file ~/.mutt/ack-recipients stores sha256sums of lower-cased e-mail
+# addresses (no newline) instead of the addresses themselves as a measure to
+# protect privacy. You can get new lines like this:
+#
+#   printf my.new@e-mail.addre.ss | tr [[:upper:]] [[:lower:]] \
+#     | sha256sum | sed -e 's, .*,,'
+#
+# E.g. my address (see below) will become
+#   84d5b33c9376f67274c2ec9ce0e03b6973fb8bc943ebd7abb470c903c47e00f4
+#
 # Copyright © 2010 martin f. krafft <madduck@madduck.net>
 # Released under the terms of the Artistic Licence 2.0
 #
@@ -13,17 +23,18 @@ set -eu
 
 CHECKLIST="$HOME/.mutt/ack-recipients"
 HEADER=X-Acked
-ACKED_RCPTS=$(formail -czx ${HEADER}: < $1 | tr -d ',')
+ACKED_RCPTS=$(formail -czx ${HEADER}: < $1 | tr -d ',' | tr [[:upper:]] [[:lower:]])
 MAILFILE="$1"; shift
 
 ret=0
 for r in $@; do
   ack=0
   # check if this recipient is in the list of acked recipients
-  for a in $ACKED_RCPTS; do [ $a = $r ] && ack=1 && break; done
-  re=$(echo $r | sed -e 's,\.,\\.,')
+  rl=$(printf $r | tr [[:upper:]] [[:lower:]])
+  for a in $ACKED_RCPTS; do [ $a = $rl ] && ack=1 && break; done
+  rs=$(printf $rl | sha256sum)
   # now check if this unacked recipient needs to be acked
-  if [ $ack -eq 0 ] && grep -qi "^${re}$" "$CHECKLIST"; then
+  if [ $ack -eq 0 ] && grep -q "^${rs%% *}$" "$CHECKLIST"; then
     echo >&2 "E: will not send mail until $r has been added to the $HEADER header"
     ret=1
   fi