#!/usr/bin/env zsh

msg=$(cat /dev/stdin)

id=$(echo $msg | grep -i "^Message-ID:" | sed "s/^Message-I[dD]: //")
from=$(echo $msg | grep -m 1 -i "^From:" | sed "s/^From: //" | sed "s/<.*$//" | sed 's/"//g' | sed 's/ $//')
subject=$(echo $msg | grep -m 1 -i "^Subject:" | sed "s/^Subject: //")

save-org-buffers

echo "* TODO E-mail \"$subject\" from $from" >>$HOME/doc/howm/refile.org
echo "# Message-Id: $id" >>$HOME/doc/howm/refile.org
#emacsclient -t -e '(spw/end-of-refile)'