external set_email_hook : (string -> unit) -> unit = "ml_gtk_about_dialog_set_email_hook"