tell application "Mail"
	set messagetext to {}
	set ws to account "WildSeed"
	if enabled of ws is true then
		set enabled of ws to false
	else
		set enabled of ws to true
	end if
	set messagetext to "Wildseed account active:
" & enabled of ws
	display dialog messagetext
	log messagetext
end tell

--This is free software; you can redistribute it and/or modify it under the  terms of the Artistic License. http://search.cpan.org/~nwclark/perl-5.8.5/pod/perlartistic.pod