void main(void)
{
	ICInstance ICInst;
	OSErr Err;
	ICAppSpec Spec;
	ICAttr Junk;
	long TheSize;
	
	/* This app's creator code in quotes */
	Err = ICStart(&ICInst, '????');
	TheSize = sizeof(Spec);
	/* Return the current email app */
	Err = ICGetPref(ICInst, "\pHelper•mailto", &Junk, &Spec, &TheSize);
	
	Spec.name[0] = sprintf((char *) &Spec.name[1], "Mail.app");
	/* Apple's mail */
	Spec.fCreator = 'emal';
	
	Err = ICSetPref(ICInst, "\pHelper•mailto", Junk, &Spec, TheSize);
}