From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 10 Aug 2008 22:56:33 +0000 (-0700)
Subject:  * try to rip out quoted replies
X-Git-Tag: release/2.6.0~477^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8babdb7510c202db35d24184089bfea1b61e0557;p=debbugs.git

 * try to rip out quoted replies
---

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;