Re: Stripping >>>'s

[Allen Watson]

Title: Re: Stripping >>>'s

While I have and use TextSoap, as far as stripping out ">>>" from forwarded messages, try Control-Click on the text of the message, and choose "Remove Quoting" from the "Auto Text Cleanup" menu option. You'll also see an "Increase Quoting" option there. I also have an Applescript to <decrement> the quote level. Dan Crevier wrote part of it; Omar Shahine did some of the mods. I converted it from Outlook Express to Entourage (no big deal).

--”Decrement Quote Level” script for Entourage
on run {}
    if not CheckMessageWindow() then return
    tell application "Microsoft Entourage"
        set theWindow to the front window
        set theText to the selection of the theWindow
        set ReplaceAll to false
        if theText is "" then
            set theText to the content of the theWindow
            set ReplaceAll to true
        end if
        set theLines to the paragraphs of theText
        set theNewText to ""
        repeat with theLine in theLines
            if theLine starts with ">" then
                if the length of theLine > 1 then
                    set theNewText to theNewText & ¬
                        ((characters 2 thru -1 of theLine) as string) & ¬
                        return
                else
                    set theNewText to theNewText & return
                end if
            else
                set theNewText to theNewText & theLine & return
            end if
        end repeat
        if ReplaceAll then
            set the content of theWindow to theNewText
        else
            set the selection of theWindow to theNewText
        end if
        
    end tell
end run
-- make sure a outgoing message window is frontmost
--written by Dan Crevier
on CheckMessageWindow()
    tell application "Microsoft Entourage"
        set msgClass to the class of the front window
        if msgClass is not draft window and msgClass is not message window then
            display dialog "This script is designed to work with a message window frontmost." buttons {"Okay"} with icon stop
            return false
        end if
    end tell
    return true
end CheckMessageWindow

On or near 12/21/00 8:22 PM, R. Scott Ohlgren at [EMAIL PROTECTED] observed:

> Rick wrote:
>>
>> Subject: stripping >>> from forwarded messages
>>
>> Is there a script to strip the ">" (or more often ">>>") from the beginning
>> of every line in a forwarded message?
>>
>> Thanks,
>>
>> Rick Johnson
>
> I use TextSoap (check www.verisiontracker.com). In its contextual manual, it
> offers to Increase Quoting, and Removed Quoting. I use these every day. Nice
> guy who write the ware: I emailed him, asking to put in a "Remove 2
> paragraph returns" in his next upgrade, and he mailed the ...script (??)
> right away. Very handy, since most copied text/emails that I paste into Word
> usually has 2 paragraphs between each paragraph.
> Scott
>

--
Peace,
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
A Mac family since 1984 <http://home.earthlink.net/~allenwatson/>
Applescripts for Outlook Express and Entourage: <http://homepage.mac.com/allenwatson/>