@verb #46:"tell_www_body" this none this rxdo #55
@program #46:"tell_www_body" this none this
if (this == $code_utils:verb_location())
  "--- Don't read the generic newsgroup ---"
  return pass(@args)
elseif (!player:isa($webber))
  raise(E_PERM)
elseif (`prepstr[2..$] ! E_RANGE')
  "--- Message page, show one message ---"
  set_task_perms(player.user)
  msgnum = prepstr[2..$]
  if (match(msgnum, "^[0-9]+$"))
    msgnum = toint(msgnum)
  else
    msgnum = this:get_msgnum_from_id("<" + msgnum + ">")
  endif
  msgtext = $mail_agent:www_read(this, msgnum)
  if (typeof(msgtext) == $ERR)
    $msg:mtell("www_error", tostr(msgtext))
  else
    player:tell(msgtext || "<I>Sorry, that message does not exist.</I>")
  endif
else
  "--- Main page, show newsgroup listings ---"
  dobj = {@dobj, {"ng", tostr(toint(this))}}
  $mail_agent:tell_www_body()
endif
"Last modified by Dax (#789) on Tue May  3 14:11:54 2005 MDT."
.