-- Downloaded From: http://c-command.com/scripts/mailsmith/compare-messages
-- Last Modified: 2007-08-17



tell application "Mailsmith"
   set m1 to message 1 of the selection
   set m2 to message 2 of the selection
   set b1 to contents of m1 as string
   set b2 to contents of m2 as string
end tell
tell application "BBEdit"
   activate
   make new text window with properties {text:b1}
   make new text window with properties {text:b2}
   compare text window 1 against text window 2
end tell
-- could be modified to use opendiff/FileMerge