mhonarc-users

Re: colorizing quoted text in messages

1999-10-30 08:43:46
On 25 Oct 1999, Eric Marsden wrote:

Hi,

Various mailing list archiving packages I have seen are able to
colorize the quoted component of messages in HTML archives (deja.com,
for example). Has anyone written a filter which does this?

use the following routine, call it and pass it 1 line of mail at a time.

# @ucolor=("#006600", "#660000", "#000066", "#666600",
#           "#006666", "#336600", "#003366");
#
# sub colorizeline($ml) {
#    $flbc = lc("$ml");
#    if (($ml =~ /^\s*>/) || ($ml =~ /^\s*\&gt\;/)) {
#        $flqut = 0;
#        $flqut++ while ($ml =~ s/^\s*?\>//i);
#        chomp($ml);
#        $tmpml = "<font color=\"$ucolor[$flqut - 1]\"><i>"; 
#        foreach (1..$flqut) {  $tmpml .= "\&gt; "; }
#        $ml = "$tmpml$ml</i></font>\n"; 
#    }
#    return($ml);
#}

--
Eddie Dunckley - Obsidian Systems, home email (24hr delayed mail checks)
Leave voice messages at +2711-792-6500,   http://www.obsidian.co.za/eddie/
Join my mission to create a virtual office -see http://demo.obsidian.co.za
                                                                           

<Prev in Thread] Current Thread [Next in Thread>