* try to rip out quoted replies

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index c197b6f93d325391250c3be72e85343f3b0efd7a..d54449da7905c782a4dee39678d94b93bb072837 100644 (file)
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -469,6 +469,10 @@ sub summary {
         for my $line (@{$body}) {
              if ($line =~ /^\s*$/) {
                   if (length $paragraph) {
+                       if ($paragraph =~ m/^(?:.+\n\>)+.+\n/x) {
+                            $paragraph = '';
+                            next;
+                       }
                        last;
                   }
                   $in_pseudoheaders = 0;