diff --git a/muttrc b/muttrc
index 22afb2b..d11d38a 100644
--- a/muttrc
+++ b/muttrc
@@ -43,6 +43,7 @@ bind index \031 previous-undeleted # Mouse wheel
 bind index \005 next-undeleted # Mouse wheel
 bind pager \031 previous-line # Mouse wheel
 bind pager \005 next-line # Mouse wheel
+macro index,pager a "|abook --add-email\n" 'add sender to abook'
 macro index,pager S <sync-mailbox>
 set query_command= "abook --mutt-query '%s'"
 bind editor        <Tab> complete-query