-print "Merge ", join("; ", @msg), "\n";
+
+my $into = current_branch();
+
+print "Merge ", join("; ", @msg), $into, "\n";
+
+if (!repoconfig) {
+ exit(0);
+}
+
+# We limit the merge message to the latst 20 or so per each branch.
+my $limit = 20;
+
+for (@origin) {
+ my ($sha1, $name) = @$_;
+ my @log = shortlog($sha1);
+ if ($limit + 1 <= @log) {
+ print "\n* $name: (" . scalar(@log) . " commits)\n";
+ }
+ else {
+ print "\n* $name:\n";
+ }
+ my $cnt = 0;
+ for my $log (@log) {
+ if ($limit < ++$cnt) {
+ print " ...\n";
+ last;
+ }
+ print " $log";
+ }
+}