Index: portfile_lint.pl
===================================================================
--- portfile_lint.pl	(revision 34087)
+++ portfile_lint.pl	(working copy)
@@ -41,7 +41,7 @@
 	chdir("$TMPROOT/$group/$port") or die("Failed to change dir for port: $port");	
 	`$SVN co $REPOHOST/trunk/dports/$group/$port/ .`;
 	# test the port
-	_lint($port);
+	_lint($port, $rev);
     }
 }
 
@@ -51,7 +51,7 @@
 #
 
 sub _lint {
-    my ($port) = @_; 
+    my ($port, $rev) = @_;
     my $errors = `$PORTCMD -qc lint`;
 
     if ($errors) {
@@ -62,17 +62,17 @@
 	$maintainers =~ s/nomaintainer\@macports.org//;
 	chop($maintainers);
 
-	_mail($port, $maintainers, $errors);
+	_mail($port, $rev, $maintainers, $errors);
     }
 }
 
 sub _mail {
-    my ($port, $maintainers, $errors) = @_;
+    my ($port, $rev, $maintainers, $errors) = @_;
 
     my %mail = (
 	     To => $maintainers,
 	     From => 'noreply@macports.org',
-	     Subject => "[MacPorts Lint] Portfile Lint Errors for: $port",
+	     Subject => "[$rev] $port lint report",
 	     Message => "Portfile: $port \n\n\n Errors: $errors \n\n",
 	     smtp => 'relay.apple.com',
 	     );