Method code for $mail_lib.mail_name()

[Turn off line numbering]

---

  1: arg obj;
  2: var name;
  3: 
  4: if (!obj.has_ancestor($mail_list))
  5:     throw(~type, "Object is not a child of $mail_recipient");
  6: name = obj.name().replace(" ", "-");
  7: if (obj.has_ancestor($user))
  8:     return "~" + name;
  9: return "*" + name;

---

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