nowotny

	set rss(miranda) {
		"url"			"http://rss.gmane.org/messages/excerpts/gmane.network.miranda-im.cvs.general"
		"channels"		"#nowotny #miranda-dev"
		"database"		"./scripts/mir.db"
		"output"		"\[parsedescr \"@@item!description@@\" \"@@item!title@@\"\]"
		"trigger"		"!mir"
		"evaluate-tcl"	1
	}


proc parsedescr {descr title} {
	regexp {\[([0-9]+)\]\s*(.*)} $title var0 revision path
	
	regexp {Log Message:-----------(.*)Modified Paths:} $descr var1 var2
	return "\[\002$revision\002\] $path - $var2"
}