Determining default email application in OS 10.3.x

Does anyone know how to obtain the default email application information in OS 10.3.x :?: I need to determine the user selected default email application and then branch to the appropriate code depending on which email program the user has selected. Apple has apparently removed the Internet preference pane and moved the default email setting inside their “Mail” program. I am unsure how to extract this information, as it does not appear in the “get properties” function. Any help is truly appreciated.

Try this script and further check the AS dictionary of the resulting app:


set def_mailer to displayed name of (info for alias GetDefaultmailer())

on GetDefaultmailer()
	set creatorType to word -1 of (do shell script ¬
		"defaults read com.apple.LaunchServices |grep -C5 U:mailto | grep -w LSBundleSignature")
	set {text:creatorType} to (text of creatorType) as text
	tell application "Finder"
		set {defmailerName, mailerContainerAlias} to ¬
			{name, container} of application file id creatorType
	end tell
	return (mailerContainerAlias as text) & defmailerName
end GetDefaultmailer

I’m desparate to change the default email application to Apple Mail. It was somehow set to Eudora, and I cannot figure out how to change it back. Can anybody help me?
:?:

Open Mail.app, go to Preferences, General Tab and the 1st setting is for the default email application.

Brad Bumgarner, CTA