filter-github-emails: Rewrap blockquotes properly

When wrapping a line that begins with a ">", let all resulting lines
begin with a ">".  (Properly handle nested blockquotes, too.)

1 files changed, 13 insertions, 1 deletions

diff --git a/libexec/filter-github-emails b/libexec/filter-github-emails
index 6f1f3a6..326495d 100755
--- a/libexec/filter-github-emails
+++ b/libexec/filter-github-emails
@@ -119,7 +119,19 @@ sub bye {
 #
 
 sub rewrap {
-        my $wrap = sub { /^(?: {4}|\t)/ ? $_ : wrap('', '', $_) };
+        my $wrap = sub {
+                my $line = shift;
+                my $indent;
+
+                if ($line =~ /^(?: {4}|\t)/) {
+                        return $line;
+                } elsif (/^([> ]+)/) {
+                        $indent = $1;
+                } else {
+                        $indent = '';
+                }
+                return wrap('', $indent, $line);
+        };
         my @lines = split(/\n/, shift);
         my @wrapped = map { $wrap->($_) } @lines;