Occasionally the compiler doesn't like this piece of code. I then recompile it and the error goes away.
method-idSetEmailPrioritypublic
proceduredivisionusingbyvaluemailPriorityastypeMailPriority = typeMailPriority::Normal.
setself::EmailPrioritytomailPriority.
endmethod.