Method code for $mail_lib.match_mail_recipient()

[Turn off line numbering]

---

  1: arg name;
  2: 
  3: catch ~namenf {
  4:     if (name) {
  5:         if (name == "me")
  6:             return sender();
  7:         if (name[1] == "*")
  8:             return (> $mail_db.search(substr(name, 2)) <);
  9:         if (name[1] == "~")
 10:             return (> $user_db.search(substr(name, 2)) <);
 11:         return (| $mail_db.search(name) |) || (> $user_db.search(name) <);
 12:     }
 13: }
 14: throw(~listnf, "No mail recipient found by the name \"" + name + "\".");

---

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