(defmethod matchesp :before ((session session) (message t) id-key)
  (error 'invalid-message-type :message-type (type-of message)))

(defmethod matchesp :before ((session session) (message olm-message-pre-key)
                             id-key)
  t)