A model for right-handed neutrino magnetic moments