summaryrefslogtreecommitdiff
path: root/archive/bin/capture-mail
blob: 138ff50aa15393ec587e1804ca79f5a659769c20 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/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)'