extra functions.R now commences with a p_emails function