Meta/add-by: add them even to a message without any sign-off
Junio C Hamano committed
Jan 22, 2013 at 14:42 UTC
2a26d5766b5caa70295c644885952a052741c7a9
1 file changed
+18
-14
add-by
+18
-14
@@ -4,7 +4,10 @@ use warnings;
4
use strict;
5
use Getopt::Long;
6
7
-my $byline = undef;
7
+sub parsing () { 1; }
8
+sub waiting () { 2; }
9
+my $state = parsing;
10
+
11
my @more;
12
my $append;
13
my $debug;
@@ -44,7 +47,7 @@ sub accumulate {
47
}
48
49
sub add_more_bylines {
47
- if (@more && !defined $append) {
50
+ if (!defined $append) {
51
my %names = map { $_->[1] => 1 } @more;
52
my %map = ();
53
my @append;
@@ -80,16 +83,17 @@ if ($check_only) {
83
}
84
85
while (<>) {
83
- if (/^[-A-Za-z]+-by: /) {
84
- $byline = 1;
85
- } elsif ($byline) {
86
- add_more_bylines();
87
- $byline = undef;
88
- } else {
89
- $byline = undef;
90
- }
91
- print;
92
-}
93
-if ($byline) {
94
- add_more_bylines();
86
+ if ($state == parsing) {
87
+ if (/^[-A-Za-z]+-by: /i || /^Cc: /i) {
88
+ $state = waiting;
89
+ }
90
+ } elsif ($state == waiting) {
91
+ if (/^[-A-Za-z]+-by: /i || /^Cc: /i) {
92
+ $state = waiting;
93
+ } else {
94
+ add_more_bylines();
95
+ $state = parsing;
96
+ }
97
+ }
98
+ print;
99
}