Method code for $mail_lib.match_mail_recipient()

[Turn on line numbering]

---

arg name;

catch ~namenf {
    if (name) {
        if (name == "me")
            return sender();
        if (name[1] == "*")
            return (> $mail_db.search(substr(name, 2)) <);
        if (name[1] == "~")
            return (> $user_db.search(substr(name, 2)) <);
        return (| $mail_db.search(name) |) || (> $user_db.search(name) <);
    }
}
throw(~listnf, "No mail recipient found by the name \"" + name + "\".");

---

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