tell application "Safari"
    activate
    if document 1 exists then
        set theHTMLSource to the source of document 1
        tell application "TextEdit"
            activate
            make new document with properties {text:theHTMLSource}
        end tell
    end if
end tell