@verb #119:"from_newsgroup_name fnn" this none this rxdo #9682
@program #119:"from_newsgroup_name fnn" this none this
broken = $string_utils:explode(args[1], ".")
name = ""
for x in (broken[3..$])
  name = name + x
  x != broken[$] && (name = name + " ")
endfor
name = "*" + name
recip = $mail_agent:match_recipient(name)
if (valid(recip))
  return is_player(recip) ? #-1 | recip
else
  return #-1
endif
"Last modified by Hobbes (#9299) on Sat Aug 22 18:39:23 1998 EDT."
.