Byta SMTP server i Mail.app beroende på location

Hittade delar av följande script på osxhints som jag sedan anpassat till mina behov. Ett problem återstår dock. När jag bytt server så kommer "Du har nu bytt inställningar. Save, Don't Save, Cancel" dialog ruta upp. Finns det något sätt att komma runt detta?

on run
	set myResult to display dialog ¬
		"Where are you?" buttons {"Home", "Work"}
	tell application "Mail"
		if the button returned of myResult is "Work" then
			set smtp server of account "at Work" to ¬
				smtp server "smtp.work.net"
		else
			set smtp server of account "at Home" to ¬
				smtp server "smtp.home.net"
		end if
	end tell
end run

Hittade dessa. Känns bara lite överdrivet.

Mail scripts