(define (message-missing:info)
  (list
   "<form action = \"get-message.html\" method = \"put\">"
   "<input type = \"hidden\" name = \"sender\" value = "
   (ui:form-datum "sender")
   "><input type = \"hidden\" name = \"number\" value = "
   (ui:form-datum "number")
   ">I can try to contact "
   (identity:href (ui:hex->bytes (ui:form-datum "sender")))
   "the author of the message</a> and get it."
   "<p><input type = \"submit\" value = \"get message\"></form>"))
