@verb #12:"@renum*ber" any none none rdo #55
@program #12:"@renum*ber" any none none
set_task_perms(player)
if (!dobjstr)
  folder = this:current_folder()
elseif ($mail_agent:match_failed(folder = $mail_agent:match_recipient(dobjstr), dobjstr))
  return
endif
cur = this:current_message(folder)
fname = $mail_agent:name(folder)
if (typeof(h = folder:renumber(cur)) == $ERR)
  player:tell(h)
else
  if (!h[1])
    player:tell("No messages on ", fname, ".")
  else
    player:tell("Messages on ", fname, " renumbered 1-", h[1], ".")
    this:set_current_folder(folder)
    if (h[2] && this:set_current_message(folder, h[2]))
      player:tell("Current message is now ", h[2], ".")
    endif
  endif
endif
"Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."
.