@verb #16:"@free-email @freeemail @freemail @addfree*email @add-free" any any any rdo #7407
@program #16:"@free-email @freeemail @freemail @addfree*email @add-free" any any any
if (player != this)
  return $msg:mtell("huh")
endif
if (length(argstr) < 2)
  return player:tell("Add what?")
endif
if (i = argstr[1] in {"+", "-", "!"})
  add = i == 1
  argstr = argstr[2..$]
else
  add = verb[1..4] == "@add"
endif
$login.free_emails = add ? {@$login.free_emails, argstr} | setremove($login.free_emails, argstr)
player:tell(argstr + " " + (add ? "added to" | "removed from") + " the list of free email sites.")
"Last modified by Dax (#789) on Mon Dec 10 21:10:07 2001 MST."
.