@verb #12:"@netforw*ard" any any any rdo #55
@program #12:"@netforw*ard" any any any
"Copied from Generic player&&Joueur generique (#6):@netforward by Sleeping_Beauty (#2) Thu Jul  6 07:09:13 1995 EDT"
"@netforward <msg>...                  -- as in help on @netforward"
"@netforward <msg>... on *<recipient>  -- netforwards messages on recipient."
"This command forwards mail-messages to your registered email-address."
if (player != this)
  return player:tell(E_PERM)
elseif (reason = $network:email_will_fail(email = player.email_address))
  return player:notify(tostr("Cannot forward mail to your email address: ", reason))
endif
set_task_perms(player)
if (p = player:parse_mailread_cmd("@read", args, "", "on"))
  player:set_current_folder(folder = p[1])
  msg_seq = p[2]
  folderstr = folder == player ? "" | tostr(" from *", folder.name, "(", folder, ")")
  if (this:connected() && !$command_utils:yes_or_no(tostr("You are about to forward ", seq_size = $seq_utils:size(msg_seq), " message(s)", folderstr, " to your registered email-address, ", email, ".  Continue?")))
    player:notify(tostr("@Netforward cancelled."))
    return
  endif
  reason = `this:netforward(folder, msg_seq) ! ANY'
  player:tell(reason == 0 ? tostr("@netforward completed.") | tostr("@netforward failed: ", reason, "."))
endif
"Last modified by Lao-Tzu (#8084) on Mon Dec 10 19:29:34 2001 MST."
.