parent $registry
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 [$mail_db]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $db database #[]
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());
.