Method code for $smtp.format_email_address()

[Turn on line numbering]

---

arg recip, @notfull;
var host, mailname;

host = (| (.get_hosts_setting())[1] |);
mailname = recip.mail_name();
if ((| .lookup_alias(recip.name().replace(" ", "-")) |)) {
    mailname = strsed(mailname, "^[*~]", "");
} else {
    mailname = strsub(recip.mail_name(), "*", "list-");
    if (.get_setting("cold-relay-recip", $smtp))
        mailname = strsub(mailname, "~", "user-");
    else
        mailname = strsub(mailname, "~", "");
}
if (host) {
    if (notfull)
        return mailname + "@" + host;
    return recip.name().capitalize() + " <" + mailname + "@" + host + ">";
} else {
    if (notfull)
        return mailname;
    return recip.name().capitalize() + " <" + mailname + ">";
}

---

// Created 13-Oct-1996 as a part of ColdCore, see: @help Credit