The latest version of Digest Viewer, which displays a digest saved as a text
file in separate messages, arranged by date or by subject, and allows quick
viewing. It has always been able to reply to the mailing list, or author, or
both, but it did not quote the message text you were replying to.

The latest version added the ability to write plug-in modules in
Applescript, for various clients. I have written a simple one for Entourage,
and am including it in this message since it is fairly short. It will quote
only the entire message (you can cut out parts you don't need), and the
attribution line has only the E-mail address, no name, since that is all the
program passes to the script. Nor does it pass me the time the message was
sent! When replying to the list, alas, the address is the list address, so
it says something like: "Some time prior to <current date and time>,
<[EMAIL PROTECTED]> said:". I've asked the author to pass more
complete information in a future release.

on run {the_address, the_subject, the_body}
    tell application "Microsoft Entourage"
        activate
        set whoSent to "<" & (text 8 thru -1 of the_address) & ">"
        set tagline to "Some time prior to " & date string of (current date)
& ", " & time string of (current date) & ¬
            " " & whoSent & " wrote:" & return & return
        set t to paragraphs of the_body
        set new_body to tagline
        -- Insure a space after ">"
        repeat with aLine in t
            set not_gt to 0
            if aLine begins with ">" and (length of aLine) > 1 then
                repeat with i from 2 to length of aLine
                    if character i of aLine is not ">" then
                        set not_gt to i
                        exit repeat
                    end if
                end repeat
                --                display dialog aLine
                if character not_gt of aLine is not " " then set aLine to ¬
                    text 1 thru (not_gt - 1) of aLine & " " & text not_gt
thru -1 of aLine
            end if
            set new_body to new_body & aLine & return
        end repeat
        copy (make new draft window with properties ¬
            {subject:the_subject, content:new_body, to recipients:whoSent})
to theMsg
        open theMsg
    end tell
end run


If you have Digest Viewer 3.0b9 or higher, compile the above script and save
it in the Plug In folder inside the Digest Viewer folder. Then select it in
Preferences in the program.

Digest Viewer can be found on line. The author, Matthew Hershberger, writes:
You can get new versions of Digest Viewer, along with other software I've
made, at www.macinsearch.com/users/mjh.

-- 
Peace be with you!
Allen <[EMAIL PROTECTED]> XNS Name: =Allen Watson
My web page: <http://home.earthlink.net/~allenwatson/>
Scripts for OE and Entourage: <http://homepage.mac.com/allenwatson/>


--
To unsubscribe:               <mailto:[EMAIL PROTECTED]>
To search the archives:
          <http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>

Reply via email to