Changed apply-message-to after seeing Marick's simpler solution.