diff --git a/.config/mutt/global.muttrc b/.config/mutt/global.muttrc
index e016a90..b476e98 100644
--- a/.config/mutt/global.muttrc
+++ b/.config/mutt/global.muttrc
@@ -102,6 +102,9 @@ macro index \eh "<pipe-message>$prefix/libexec/gpg-wks-client --receive | msmtp
 
 macro index,pager a "<enter-command>set my_pipe_decode=\$pipe_decode pipe_decode<return><pipe-message>abook --add-email<return><enter-command>set pipe_decode=\$my_pipe_decode; unset my_pipe_decode<return>" "add the sender address to abook"
 macro index \Cr "T~U<enter><tag-prefix><clear-flag>N<untag-pattern>.<enter>" "mark all messages as read"
+macro index L  "<pipe-message>sed -e /^From/d -e s/To:/From:/ | abook --add-email<return>" "add the to: address to abook?"
+macro index \Cl "<pipe-message> grep 'From: ' | sed 's/From: //' >| /tmp/sender<enter>:set my_sender=\"`cat /tmp/sender`\"\n l~f \"$my_sender\"\n" "custom filter"
+# :set my_sender=\"`cat /tmp/sender`\"\n l~f \"$my_sender\"\n" \
 macro index O "<shell-escape>~/.local/bin/mailsync &<enter>" "run mailsync to sync all mail"
 macro index \Cf "<enter-command>unset wait_key<enter><shell-escape>printf 'Enter a search term to find with notmuch: '; read x; echo \$x >~/.cache/mutt_terms<enter><limit>~i \"\`notmuch search --output=messages \$(cat ~/.cache/mutt_terms) | head -n 600 | perl -le '@a=<>;s/\^id:// for@a;$,=\"|\";print@a' | perl -le '@a=<>; chomp@a; s/\\+/\\\\+/ for@a;print@a' \`\"<enter>" "show only messages matching a notmuch pattern"
 macro index A "<limit>all\n" "show all messages (undo limit)"