-- translation
local S = mail.S

local function recursive_expand_recipient_names(sender, list, is_toplevel, recipients, undeliverable)
    for _, name in ipairs(list) do
        if not (recipients[name] or undeliverable[name] or (name == sender and not is_toplevel)) then
            local succ, value
            for _, handler in ipairs(mail.registered_recipient_handlers) do
                succ, value = handler(sender, name)
                if succ ~= nil then
                    break
                end
            end
            local vtp = type(value)
            if succ then
                if vtp == "string" then
                    recursive_expand_recipient_names(sender, {value}, is_toplevel, recipients, undeliverable)
                elseif vtp == "table" then
                    recursive_expand_recipient_names(sender, value, false, recipients, undeliverable)
                elseif vtp == "function" then
                    recipients[name] = value
                else
                    undeliverable[name] = S("The method of delivery to @1 is invalid.", name)
                end
            elseif succ == nil then
                undeliverable[name] = S("The recipient @1 could not be identified.", name)
            else
                local reason = tostring(value) or S("@1 rejected your mail.", name)
                undeliverable[name] = reason
            end
        end
    end
end

--[[
return the field normalized (comma separated, single space)
and add individual player names to recipient list
--]]
function mail.normalize_players_and_add_recipients(sender, field, recipients, undeliverable)
    local order = mail.parse_player_list(field)
    recursive_expand_recipient_names(sender, order, true, recipients, undeliverable)
    return mail.concat_player_list(order)
end

function mail.parse_player_list(field)
    if not field then
        return {}
    end

    local separator = ",%s"
    local pattern = "([^" .. separator .. "]+)"

    -- get individual players
    local order = {}
    for name in field:gmatch(pattern) do
        table.insert(order, name)
    end

    return order
end

function mail.concat_player_list(order)
    -- turn list of players back into normalized string
    if order == nil or #order == 0 then
        return ""
    end
    return table.concat(order, ", ")
end

function mail.player_in_list(name, list)
    list = list or {}
    if type(list) == "string" then
        list = mail.parse_player_list(list)
    end
    for _, player_name in pairs(list) do
        if name == player_name then
            return true
        end
    end
    return false
end