strip out e-mail addresses and replace with dot

diff --git a/contrib/tools/svn2twitter/svn2twitter b/contrib/tools/svn2twitter/svn2twitter
index 858222531336d52a630ee4d953d9b6796d5e0295..4d1d8eb6a44150f94e9e526910406666b692233b 100755 (executable)
--- a/contrib/tools/svn2twitter/svn2twitter
+++ b/contrib/tools/svn2twitter/svn2twitter
@@ -43,6 +43,8 @@ chomp $message;
 #my $twitter = $author . ": " . $message . "; " . join (", ", @paths);
 my $twitter = $author . ": " . $message;
 
+# strip out <foo@bar.org> e-mail addresses (replace with dot)
+$twitter =~ s/\s+<[^@]+@.[^>]+>/./g;
 $twitter =~ tr/\n/ /;
 $twitter =~ s/\s+/ /g;