The node you are looking for is at
gnutls_openpgp_crt_set_preferred_key_id
.