# extract new E. messages out of array

	$firstnewmess=$newcount-($newcount-$oldcount)+1;
	$match=0;
	
	while ( $match ne $firstnewmess ){
		
		$line = pop @errlist or last;                  
		if ($line =~ /^--\s(\d+)\s-*/){ $match = $1};
		unshift @difflist, $line;
		} 
	
	$output=join ("\n",@difflist);