Searching for an AppleScript

[R. Gerard]

Using latest version of Entourage in Tiger 10.4.1,

I had an AppleScript, which has somehow become corrupted, that I ran
to move incoming email, received by me once a day, in Digest form, from
the Mac-L List, OS_X List, etc., in text format, to a desktop folder
where I then opened them using an application called Digest Viewer.

I haven't a clue about how to repair this script and it's been so
long since I have been using it that I forgot where I got it. I checked
all the usual sites and could find no such AppleScript there.

A. Anyone know where I could find such a script or

B. Can some kind soul help me edit this script to get it to work???

property digestFolder : ""

set digestFolder to ((path to desktop) as string) & "Digest Viewer
alias:"
tell application "Microsoft Entourage" --
set currentMessages to the current messages --
repeat with theMsg in the currentMessages --
my ProcessMsg(theMsg) --
end repeat --
end tell --

on ProcessMsg(theMsg) --
tell application "Microsoft Entourage" --
set s to subject of theMsg
if (s contains "digest") and (s does not start with "re") then
save theMsg in digestFolder as "TEXT"
set read status of theMsg to read
move theMsg to folder "Deleted Items"
end if
end tell --
end ProcessMsg --

P.s. If I now run this script on incoming Digests of the above-noted
lists, they are placed on the desktop but not in the folder Digest
Viewer which is on the desktop. So it _almost_ works, but not quite.

Many thanks.
Bob