(define (reply:type-line)
  (let ((message (messages:get-message (string->number
					(ui:form-datum "resp-to")))))
    (append
     (list
      "<input type = \"hidden\" name = \"seq-num\" value = \""
      *ui:send-seq-num*
      "\"><input name = \"original\" type = \"hidden\" value = \""
      (ui:form-datum "resp-to")
      "\"><b>Title</b>: "
      (messages:title message)
      "<input name = \"title\" type = \"hidden\" value = \""
      (messages:title message)
      "\"><br>")
     (cond ((equal? "individual" (ui:form-datum "recipients"))
	    (list
	     "<input type = \"hidden\" name = \"to-one\" value = \""
	     (ui:bytes->hex (messages:sender message))
	     "\"><b>Message to <a href = \"identity.html?"
	     (ui:bytes->hex (messages:sender message))
	     "\">"
	     (identity:description (messages:sender message))
	     "</a>"))
	   ((equal? "cluster" (ui:form-datum "recipients"))
	    (list
	     "<input type = \"hidden\" name = \"to-many\" value = \""
	     (messages:local-interest message)
	     "\"><b>Message to all contacts for <a href = \"interests-contact.html?"
	     (messages:local-interest message)
	     "\">"
	     (interests:description (messages:local-interest message))
	     "</a></b>"))
	   ))))
