Method code for $smtp.parse_recipient()

[Turn off line numbering]

---

  1: arg user;
  2: var x, host;
  3: 
  4: if (mail_aliases.contains(user))
  5:     return mail_aliases[user];
  6: if (user[1] == "<" && user[user.length()] == ">")
  7:     user = user.subrange(2, user.length() - 2);
  8: if ("@" in user) {
  9:     [user, host] = explode(user, "@");
 10:     if (!(host in $smtp.get_hosts_setting()))
 11:         throw(~perm, "Unwilling to accept or relay mail for: " + host, 571);
 12: }
 13: user = user.trim();
 14: user = strsed(user, "^list-", "*");
 15: user = strsed(user, "^user-", "~");
 16: return (| $smtp.lookup_alias(user) |) || (> $mail_lib.match_mail_recipient(user) <);

---

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