<erl>

out(A) ->
    case mail:check_session(A) of
        {ok, Session} ->
            L = yaws_api:parse_query(A),
            {value, {_,Nr}} = lists:keysearch("nr",1,L),
            mail:showmail(Session, list_to_integer(Nr));
        Error ->
            Error
    end.

</erl>
