A theoretical model of courtship aggression.