mail script works under Snow Leopard but not under Lion

I have this script that used to work in all previous OSs but now doesn’t work under Lion

tell application "Mail"
	set the_message to selection
	set mySender to extract address from sender of first item of the_message
	set the_message to selection
	set theAddress to extract address from sender of first item of the_message
	reply
	set theBody to "Bonjour,
	
xxxx


xx.



xxx"
	set theSubject to "votre réservation au xxx"
	set newMessage to make new outgoing message with properties {address:theAddress, sender:"xxx@xxx.com", subject:theSubject, content:theBody & return & return}
	tell newMessage
		set visible to true
		make new to recipient with properties {address:theAddress}
		send newMessage
		send newMessage
	end tell
end tell



Would anyone know what I can do to fix it?

I found it myself. This part should have read

and not

as

already handles the address.