     "--"
     ["Re-examine"		darcsum-redo		t]
     ["Record changes"		darcsum-record		t] ; fixme: condition
+    ["Amend last changeset"	darcsum-amend		t] ; fixme: condition
 ;;     ["Tag"			darcsum-tag		t]
     ["Undo changes"		darcsum-revert		t] ; fixme: condition
     ["Add"			darcsum-add		(darcsum-line-is 'new)]

    (set (make-local-variable 'darcsum-parent-buffer) parent-buf)
    (message
     "Title of change on first line, long comment after.  \
C-c C-c to record.")))

(defun darcsum-send (recipient)
  "Send selected changeset via email."

	(message "No changes sent.")
	(kill-buffer (current-buffer)))

       ((looking-at "\n*Do you really want to .+\\? ") ;; Should the last whitespace be there?
	(process-send-string proc "y\n")
	(delete-region (point-min) (point-max)))
       ((looking-at "\n*Finished reverting.")
