From 4e857d7c73cb3a360ae20debd2ada03c30f8faa3 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 26 Jun 2007 23:01:42 -0700
Subject: [PATCH] Indicate correctly when merged bugs can be archived

---
 Debbugs/Status.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index dac6d75..d69e7a7 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -705,7 +705,10 @@ sub bug_archiveable{
 	  return $param{days_until}?0:1;
      }
      # 6. at least 28 days have passed since the last action has occured or the bug was closed
-     my $age = ceil($config{remove_age} - -M getbugcomponent($param{bug},'log'));
+     my $age = ceil(max(map {$config{remove_age} - -M getbugcomponent($_,'log')} 
+			$param{bug}, split / /, $status->{mergedwith}
+		       )
+		   );
      if ($age > 0 or $min_archive_days > 0) {
 	  return $param{days_until}?max($age,$min_archive_days):0;
      }
-- 
2.39.2