From 8babdb7510c202db35d24184089bfea1b61e0557 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 10 Aug 2008 15:56:33 -0700
Subject: [PATCH]  * try to rip out quoted replies

---
 Debbugs/Control.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index c197b6f9..d54449da 100644
--- 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;
-- 
2.39.5