Please help: "Extract message from digest" script not working in Entourage 2004

[HAV]

Title: Please help: "Extract message from digest" script not working in Entourage 2004

I would be much obliged if someone can help me. This script works in Entourage X but not 2004. I can not find what’s wrong with it. I use it all the time to save individual messages from a digest :(

Thanks,

Hank
------------------------

on maybeExtract(theWindow, theSelection)
    tell application "Microsoft Entourage"
        set theMessage to the displayed message of theWindow
       try
           set theAccount to the account of theMessage
       on error
           set theAccount to ""
        end try
       set theFolder to the storage of theMessage
       try
           if theAccount is not "" then
               make new incoming message with properties ¬
                    {source:theSelection, read status:untouched, account:theAccount} at theFolder
           else
               make new incoming message with properties ¬
                    {source:theSelection, read status:untouched} at theFolder
           end if
       on error
           display dialog "Message extraction failed" buttons {"OK"} default button {"OK"}
        end try
   end tell
end maybeExtract

on run
   tell application "Microsoft Entourage"
        set theSelection to the selection
       if the class of theSelection is string then
           set theWindow to the front window
           if the class of theWindow is message window then
               my maybeExtract(theWindow, theSelection)
            else if the class of theWindow is draft window then
               display dialog "Text in a message must be selected." buttons {"OK"} default button {"OK"}
            else if the class of the displayed feature of theWindow is folder then
               my maybeExtract(theWindow, theSelection)
            else
               display dialog "Text in a message must be selected." buttons {"OK"} default button {"OK"}
            end if
       end if
   end tell
end run