proc parsedescr {descr title} {
	regexp {\[([0-9]+)\]\s*(.*)} $title var0 revision path
	
	regexp {Log Message:\n*-----------\n*(.*)(Modified|Added|Removed) Paths:} $descr var1 var2 var3

	regexp {Author:\s*(.+)\n*Date:} $descr var4 author

	return "\[\002$revision\002\] $path - $var2 \($author\)"
}