The node you are looking for is at gnutls_openpgp_crt_set_preferred_key_id.