Bind a key in Mutt to add new rule for imapfilter from email sender

addSpammer.sh

#!/bin/bash
read "$@" <&0;
grep From: |
sed 's/>//g' |
cut -d '<' -f 2 >> ~/.mail_config/filters/spamer.list 2>&1

filter.lua

fh,err = io.open("spammer.list")
if err then print("OOps"); return; end

while true do
  line = fh:read()
  if line == nil then break end
  msgs = EECS.INBOX:contain_from(line)
  msgs:move_messages(EECS['INBOX.Trash'])
end

fh:close()

muttrc

macro index S "|~/.mail_config/filters/addSpam.sh\n" 'add sender to spammer list'
macro pager S "|~/.mail_config/filters/addSpam.sh\n" 'add sender to spammer list'