--- a/colorgcc
+++ b/colorgcc
@@ -102,7 +102,8 @@
    $nocolor{"dumb"} = "true";
 
    $colors{"srcColor"} = color("cyan");
-   $colors{"introColor"} = color("blue");
+   $colors{"introFileNameColor"} = color("blue");
+   $colors{"introMessageColor"} = color("blue");
 
    $colors{"warningFileNameColor"} = color("yellow");
    $colors{"warningNumberColor"}   = color("yellow");
@@ -111,6 +112,10 @@
    $colors{"errorFileNameColor"} = color("bold red");
    $colors{"errorNumberColor"}   = color("bold red");
    $colors{"errorMessageColor"}  = color("bold red");
+
+   $colors{"noteFileNameColor"} = color("green");
+   $colors{"noteNumberColor"}   = color("green");
+   $colors{"noteMessageColor"}  = color("green");
 }
 
 sub loadPreferences
@@ -290,12 +295,18 @@
 	 print($colors{"warningNumberColor"}, "$field2:", color("reset"));
 	 srcscan($field3, $colors{"warningMessageColor"});
       }
-      else 
-      {
+      elsif ($field3 =~ m/\s+error:.*/)
+	{
 	 # Error
 	 print($colors{"errorFileNameColor"}, "$field1:", color("reset"));
 	 print($colors{"errorNumberColor"}, "$field2:", color("reset"));
 	 srcscan($field3, $colors{"errorMessageColor"});
+      } else
+      {
+	 # Note
+	 print($colors{"noteFileNameColor"}, "$field1:", color("reset"));
+	 print($colors{"noteNumberColor"}, "$field2:", color("reset"));
+	 srcscan($field3, $colors{"noteMessageColor"});
       }
       print("\n");
    }
@@ -305,8 +316,11 @@
    }
    elsif (m/^(.*?):(.+):$/) # filename:message:
    {
+      my $field1 = $1 || "";
+      my $field2 = $2 || "";
       # No line number, treat as an "introductory" line of text.
-      srcscan($_, $colors{"introColor"});
+	 print($colors{"introFileNameColor"}, "$field1:", color("reset"));
+	 print($colors{"introMessageColor"}, "$field2:\n", color("reset"));
    }
    else # Anything else.
    {