X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=Debbugs%2FBug.pm;h=411e9babc80e9dca812b4cfddb785b34ffd85734;hb=289a8188c43f308c748bf58567e78186b7a4f29a;hp=4af9b735f071041adf7b73827d8fc41ea6a73dc6;hpb=9dd439703f28e782980380687a9c9325de2ae80c;p=debbugs.git

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 4af9b73..411e9ba 100644
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -682,11 +682,45 @@ sub matches {
     return 0;
 }
 
+sub email {
+    my $self = shift;
+    return $self->id.'@'.$config{email_domain};
+}
+
+sub subscribe_email {
+    my $self = shift;
+    return $self->id.'-subscribe@'.$config{email_domain};
+}
+
 sub url {
     my $self = shift;
     return $config{web_domain}.'/'.$self->id;
 }
 
+sub mbox_url {
+    my $self = shift;
+    return $config{web_domain}.'/mbox:'.$self->id;
+}
+
+sub mbox_status_url {
+    my $self = shift;
+    return $self->mbox_url.'?mboxstatus=yes';
+}
+
+sub mbox_maint_url {
+    my $self = shift;
+    $self->mbox_url.'?mboxmaint=yes';
+}
+
+sub version_url {
+    my $self = shift;
+    return version_url(package => $self->package,
+                       found => [$self->found->members],
+                       fixed => [$self->fixed->members],
+                       @_,
+                      );
+}
+
 sub related_packages_and_versions {
     my $self = shift;
     my @packages;