parent $registry
parent $mail_root
object $mail_db

var $root dbref 'mail_db
var $root child_index 0
var $root fertile 0
var $root manager $mail_db
var $root owned [$mail_db]
var $root owners [$core]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $db database #[["chatter", $mail_list_1], ["core", $mail_list_3], ["server", $mail_list_4], ["qooc", $mail_list_5], ["news", $mail_list_6]]
var $root trusted []
var $root inited 1

method valid_recipient
    arg recip;
    
    if (recip.has_ancestor($mail_list))
        return 1;
    return 0;
.

method mail_name
    arg obj;
    
    return "*" + (obj.namef());
.