Quota-Log (#36)

if (caller_perms().wizard)
    pass();
    delete_verb(this, "is_readable_by");
    delete_verb(this, "is_usable_by");
    delete_verb(this, "mail_notify");
    "...remove references to ARB...";
    this:rm_message_seq({1, 1 + this:length_all_msgs()});
    this:expunge_rmm();
    this.mail_forward = {player, this};
    this.mail_notify = {player};
    for p in ({"moderator_forward", "moderator_notify", "writers", "readers", "expire_period", 
"last_used_time"})
        this.(p) = $mail_recipient.(p);
    endfor
    this.moderated = 1;
else
    return E_PERM;
endif
.