@verb #12:"set_email_address _set_email_address" this none this rxdo #55
@program #12:"set_email_address _set_email_address" this none this
"set_email_address(email[, reason]) changes this.email_address to email and updates the registration database."
if (!caller_perms().wizard)
  raise(E_PERM)
endif
{email, ?reason = ""} = args
if (!is_clear_property(this, "email_address"))
  was_registered = $registration_db:delete(this.email_address)
  if (!was_registered)
    $wiz_utils:wiz_alert(tostr(this, ":set_email_address -- attempt to remove $registration_db entry for old address failed because it was not in the database!"))
  else
    "If others had that e-mail address, keep them in the database."
    if (who_else = setremove(was_registered, {this}))
      $registration_db:insert(this.email_address, who_else)
    endif
  endif
endif
if (reason)
  $registration_db:add(this, email, reason)
else
  $registration_db:add(this, email)
endif
this.email_address = email
"Last modified by Lao-Tzu (#8084) on Sat Oct 19 10:42:26 2002 MDT."
.