--- cvs2cl.orig	2010-08-05 17:53:37.122564909 +0100
+++ cvs2cl	2010-08-05 17:53:55.222606674 +0100
@@ -605,7 +605,8 @@
 
     unless ( exists $fileinfo_printed{$b} ) {
       if ($fbegun) {
-        $beauty .= ", ";
+# tdb: hacked to put a newline after each one
+        $beauty .= ",\n";
       } else {
         $fbegun = 1;
       }
@@ -649,7 +650,8 @@
 
   if ( $No_Wrap and ! $Summary ) {
     $msg = $self->preprocess_msg_text($msg);
-    $files = $self->mywrap("\t", "\t  ", "* $files");
+# tdb: no-wrap shouldn't wrap ANYTHING!
+    #$files = $self->mywrap("\t", "\t  ", "* $files");
     $msg =~ s/\n(.+)/\n$Indent$1/g;
     unless ($After_Header eq " ") {
       $msg =~ s/^(.+)/$Indent$1/g;
@@ -1659,7 +1661,8 @@
   # there are multiple qunks in the first place!
   if ((scalar (@qunkrefs)) > 1) {
     foreach my $tag (keys (%$non_unanimous_tags)) {
-      my $everyone_has_this_tag = 1;
+# tdb: we don't want to have unanimous tags
+      my $everyone_has_this_tag = 0;
       foreach my $qunkref (@qunkrefs) {
         if ((! (defined ($qunkref->tags)))
             or (! (grep ($_ eq $tag, @{$qunkref->tags})))) {