>From gaffney@iconn.net

the stylistic choice of adding all of the =0D's and blocking the text
out really didn't add to the erotic feel for me.
Not that I read many lemons.

You just look at the pictures?

Yes, I do REXX!

Anybody want to do this in Java?!?

/* Command to de-mime it's inputs */
/* $Id: mimescan.cmd,v 1.4 1997/03/31 04:03:05 hcobb Exp hcobb $ */

/* Acts like a pipe, turns MSed up MIME garbage into ASCII */

Do While Lines()
    input = linein()
    output = ''
    Do While '' \= input
        Parse Var input first_part '=' -1 equals +1 rest_of_line
        output = output || first_part
        If '=' = equals Then Do
            If '' = rest_of_line Then Do
                /* Concat this line to the next one */
                Next_line = linein()
                rest_of_line = rest_of_line || Next_Line
            End; Else If '20' = rest_of_line Then Do
                rest_of_line = ''
            End; Else If '3D' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = SubStr(rest_of_line,3)
            End; Else If '46' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = "F" || SubStr(rest_of_line,3)
            End; Else If '85' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = " - " || SubStr(rest_of_line,3)
            End; Else If '91' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = "`" || SubStr(rest_of_line,3)
            End; Else If '92' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = "'" || SubStr(rest_of_line,3)
            End; Else If '93' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = '"' || SubStr(rest_of_line,3)
            End; Else If '94' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = '"' || SubStr(rest_of_line,3)
            End; Else If '9E' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = 'ee' || SubStr(rest_of_line,3)
            End; Else If 'E9' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = 'e' || SubStr(rest_of_line,3)
            End; Else If '0A' = SubStr(rest_of_line,1,2) Then Do
                /* Flush the line */
                Say output
                output = ''
                rest_of_line = SubStr(rest_of_line,3)
            End; Else If '0D' = SubStr(rest_of_line,1,2) Then Do
                rest_of_line = SubStr(rest_of_line,3)
            End
        End /* If there was an equals */
        input = rest_of_line
    End /* Do while input */
    Say output
End /* Do while lines */