chickadee » messages » message-of?

message-of? type-keyprocedure

returns a predicate which checks, if its only argument is a message of the given type-key