From 3553cbcb8d058cab846477575d147952b3807c73 Mon Sep 17 00:00:00 2001
From: Michael Smith <xmldoc@users.sourceforge.net>
Date: Fri, 14 Oct 2005 07:53:34 +0000
Subject: [PATCH] Added "-n" option to cause appending of e-mail address to
 usernames to be suppressed.

---
 cvstools/cvs2log | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/cvstools/cvs2log b/cvstools/cvs2log
index 38dc6380e..b80dea4d1 100755
--- a/cvstools/cvs2log
+++ b/cvstools/cvs2log
@@ -2,9 +2,9 @@
 
 use Getopt::Std;
 
-$usage = "Usage: $0 [-l logfile] [-w] [-c date]\n";
+$usage = "Usage: $0 [-l logfile] [-w] [-c date] [-n]\n";
 
-die $usage if ! getopts('c:l:w');
+die $usage if ! getopts('c:l:wn');
 
 # yes, the trailing blank is significant
 my %authorName = ('adicarlo' => 'Adam Di Carlo ',
@@ -119,7 +119,11 @@ sub show_messages {
     my $author = shift;
     my $msgs = shift;
 
-    print F "$date  ", $authorName{$author}, "<$author\@users.sourceforge.net>\n\n";
+    if ($opt_n) {
+      print F "$date  ", $authorName{$author}, "$author\n\n";
+    } else {
+      print F "$date  ", $authorName{$author}, "<$author\@users.sourceforge.net>\n\n";
+    }
 
     foreach $msg (sort fnsort keys %{$msgs}) {
 	$files = $msgs->{$msg};
-- 
2.40.0