320
@verb #12:"send_self_netmail" this none this rxdo #55
@program #12:"send_self_netmail" this none this
":send_self_netmail(msg [ ,from ])"
"return 0 if successful, otherwise error."
if (!$perm_utils:controls(caller_perms(), this))
  return E_PERM
elseif (error = $network:invalid_email_address(this.email_address))
  return "Invalid email address: " + error
else
  msg = args[1]
  if (length(args) > 1)
    from = args[2]
    this:notify(tostr("Receiving mail from ", from:title(), " (", from, ") and forwarding it to your .email_address."))
  endif
  oplayer = player
  player = this
  error = $network:sendmail(this.email_address, @msg)
  if (error && length(args) > 1)
    this:notify(tostr("Mail sending failed: ", error))
  endif
  player = oplayer
  return error
endif
.

0