diff -ruN tkrat-2.1.4-old/tkrat/folder.tcl tkrat-2.1.4/tkrat/folder.tcl
--- tkrat-2.1.4-old/tkrat/folder.tcl	2002-05-29 16:33:21.000000000 +0200
+++ tkrat-2.1.4/tkrat/folder.tcl	2003-03-15 18:25:04.000000000 +0100
@@ -429,6 +429,7 @@
     text $fh(message_list) \
         -yscroll "$fh(message_scroll) set" \
         -bd 0 \
+	-foreground $option(new_color) \
 	-highlightthickness 0 \
 	-wrap none \
 	-spacing1 1 \
@@ -442,9 +443,22 @@
     if { 4 < [winfo cells $fh(message_list)]} {
 	$fh(message_list) tag configure sel -background #ffff80
 	$fh(message_list) tag configure Found -background #ffff80
+	$fh(message_list) tag configure flagged \
+	    -foreground $option(flagged_color)
+	$fh(message_list) tag configure deleted \
+	    -foreground $option(deleted_color)
+	$fh(message_list) tag configure seen \
+	    -foreground $option(seen_color)
+	$fh(message_list) tag configure answered \
+	    -foreground $option(answered_color)
     } else {
 	$fh(message_list) tag configure sel -underline 1
 	$fh(message_list) tag configure Found -borderwidth 2 -relief raised
+	$fh(message_list) tag configure flagged -font bold 
+	$fh(message_list) tag configure deleted -font italic
+	$fh(message_list) tag configure seen ""
+	$fh(message_list) tag configure answered ""
+
     }
     $fh(message_list) tag raise sel
     pack $fh(message_scroll) -side right -fill y
@@ -928,6 +942,18 @@
     set fh(size) [llength $lines]
     foreach l $lines {
 	$fh(message_list) insert end "$l\n"
+	set i [$fh(message_list) index end-2l]
+	foreach flag {seen answered deleted flagged} {
+	    if [$fh(folder_handler) getFlag [expr int($i - 1)] $flag] {
+		$fh(message_list) tag add $flag $i "$i lineend"
+		if [string compare $flag seen] {
+		    $fh(message_list) tag raise $flag
+		}
+	    } else {
+		$fh(message_list) tag remove $flag $i "$i lineend"
+	    }
+	}
+
     }
     $fh(message_list) delete end-1c
     foreach w $fh(groupMessageLists) {
@@ -995,6 +1021,8 @@
     set fh(current) [$fh(folder_handler) get $index]
     set seen [$fh(folder_handler) getFlag $index seen]
     $fh(folder_handler) setFlag $index seen 1
+    set j [expr $index + 1]
+    $fh(message_list) tag add seen $j.0 "$j.0 lineend"
     if {$force} {
 	set mode 0
     } else {
@@ -1030,6 +1058,13 @@
 			      -text "$t(sig): $t($sigstatus)" \
 			      -command $command
     }
+    foreach flag {seen answered deleted flagged} {
+	if [$fh(folder_handler) getFlag $index $flag] {
+	    $fh(message_list) tag add $flag $line.0 "$line.0 lineend"
+	} else {
+	    $fh(message_list) tag remove $flag $line.0 "$line.0 lineend"
+	}
+    }
 }
 
 # FolderNext --
@@ -1113,6 +1148,14 @@
 	    }
 	    $fh(folder_handler) setFlag $i $flag $v
 	}
+	set j [expr $i + 1]
+	if [$fh(folder_handler) getFlag $i $flag] {
+	    $fh(message_list) tag add $flag $j.0 "$j.0 lineend"
+	    if [string compare $flag seen] {$fh(message_list) tag raise $flag}
+	} else {
+	    $fh(message_list) tag remove $flag $j.0 "$j.0 lineend"
+	}
+
 	FolderListRefreshEntry $handler $i
     }
 }
@@ -1673,6 +1716,12 @@
 	    set s [expr {-1 != [lsearch $toset $i]}]
 	    if {$s != [expr {-1 != [lsearch $isset $i]}]} {
 		$fh(folder_handler) setFlag $i flagged $s
+		set j [expr $i + 1]
+		if {$s} {
+		    $fh(message_list) tag add flagged $j.0 "$j.0 lineend"
+		} else {
+		    $fh(message_list) tag remove flagged $j.0 "$j.0 lineend"
+		}		    
 		FolderListRefreshEntry $handler $i
 	    }
 	}
@@ -1700,6 +1749,8 @@
 
     foreach i [$fh(folder_handler) flagged flagged] {
 	$fh(folder_handler) setFlag $i flagged 0
+	set j [expr $i + 1]
+	$fh(message_list) tag remove flagged $j.0 "$j.0 lineend"
 	FolderListRefreshEntry $handler $i
     }
 }
diff -ruN tkrat-2.1.4-old/tkrat/options.tcl tkrat-2.1.4/tkrat/options.tcl
--- tkrat-2.1.4-old/tkrat/options.tcl	2002-05-27 18:18:25.000000000 +0200
+++ tkrat-2.1.4/tkrat/options.tcl	2003-03-15 18:27:02.000000000 +0100
@@ -406,6 +406,21 @@
     # Color of URL
     set option(url_color) blue
 
+    # Color of new messages
+    set option(new_color) DarkSeaGreen
+
+    # Color of seen messages
+    set option(seen_color) black
+
+    # Color of flagged messages
+    set option(flagged_color) red
+
+    # Color of answered messages
+    set option(answered_color) blue
+
+    # Color of deleted messages
+    set option(deleted_color) yellow
+
     # System wide aliases
     set option(system_aliases) "System tkrat $env(CONFIG_DIR)/aliases"
     set option(use_system_aliases) 1
