Method code for $mail_lib.mail_name()

[Turn on line numbering]

---

arg obj;
var name;

if (!obj.has_ancestor($mail_list))
    throw(~type, "Object is not a child of $mail_recipient");
name = obj.name().replace(" ", "-");
if (obj.has_ancestor($user))
    return "~" + name;
return "*" + name;

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit