(define (compose:type-line)
  (let ((s (new-message:selections)))
    (list
     "<input type = \"hidden\" name = \"seq-num\" value = \""
     *ui:send-seq-num*
     "\"><b>Topic</b>: "
     (new-message:interest-listbox (join-strings s " "))
     "<b>Title</b>: "
     "<input name = \"title\" type = \"text\" value = \"\"><br>"
     "<input type = \"hidden\" name = \"to-one\" value = \""
     ui:index
     "\"><b>Message to <a href = \"identity.html?"
     ui:index
     "\">"
     (identity:description (ui:hex->bytes ui:index))
     "</a>")))



