     (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.")))
+C-c C-c to record.")
+    (run-hooks 'darcsum-comment-hook)))
 
 (defun darcsum-send (recipient)
   "Send selected changeset via email."

;; - Interface to darcs changes
;; - Changes from "replace" aren't shown
;; - Interface to darcs replace
;; - Interface to darcs changes / darcs unrecord / darcs amend

;;; Code:


	(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.")
