Message types

xmpp.rkt
(message to body)
changed to
(message #:to to #:body body #:type (type chat))