From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 11 Aug 2009 00:38:22 +0000 (-0700)
Subject: support the rest of the control options in summary 0
X-Git-Tag: release/2.6.0~453^2
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=b9ffcf09b52902ea8cf1b4c26e0c8ae10c0a22e7

support the rest of the control options in summary 0
---

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index f7c74d5..34f6bbf 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -1948,12 +1948,14 @@ sub summary {
 	      }
 	      # skip a paragraph if it looks like it's control or
 	      # pseudo-headers
-	      if ($line =~ m{^\s*(?:(?:Package|Source|Version)\:| #pseudo headers
-				 (?:package|(?:no|)owner|severity|tag|summary| #control
-				      \#|reopen|close|(?:not|)(?:fixed|found)|clone|
-				      (?:force|)merge|user(?:category|tag|)
-				 )
-			    )\s+\S}x) {
+	      if ($line =~ m{^\s*(?:Package|Source|Version|User|Tag|Severity)\:\s+\S}xi or #pseudo headers
+		  $line =~ m{^(?:package:?|(?:no|)owner|severity|tags?|summary| #control
+				 \#|reopen|close|(?:not|)(?:fixed|found)|clone|
+				 debug|(?:not|)forwarded|priority|
+				 (?:un|)block|limit|(?:un|)archive|
+				 reassign|retitle|affects|wrongpackage
+				 (?:un|force|)merge|user(?:category|tags?|)
+			     )\s+\S}xis) {
 		   if (not length $paragraph) {
 			print {$debug} "Found control/pseudo-headers and skiping them\n";
 			$in_pseudoheaders = 1;