--- attach.orig	2003-08-09 01:15:58.000000000 -0600
+++ attach	2004-07-26 17:25:57.000000000 -0600
@@ -42,18 +42,22 @@
 
     my $found = 0;
 
-    my $result = "\n|  *Version:*  |  *Action:*   |  *Date:*  |  *Who:*  |  *Comment:*  |\n";
+    my $result = "\n|  *Version:*  |  *Action:*   |  *Action:*  |  *Date:*  |  *Who:*  |  *Comment:*  |\n";
 
     for( my $version = $maxRevNum; $version >= 1; $version-- ) {
 
         my $rev = "1.$version";
+        my $lastRev = "1." . $version-.1;
 
         my( $date, $userName, $dummy, $comment ) = 
            TWiki::Store::getRevisionInfo( $web, $topic, $rev, "TWiki date", $attachment );
         my $wikiUserName = &TWiki::userToWikiName( $userName );
 
         my $viewAction = "<a href=\"%SCRIPTURLPATH%/viewfile%SCRIPTSUFFIX%/%WEB%/%TOPIC%?rev=$rev&filename=$attachment\">view</a>";
-        $result .= "| 1.$version  | $viewAction | $date | $wikiUserName | $comment |\n";
+
+        my $diffAction = "<a href=\"%SCRIPTURLPATH%/rdiff%SCRIPTSUFFIX%/%WEB%/%TOPIC%?rev1=$rev&amp;rev2=$lastRev&filename=$attachment\">diff against $lastRev</a>";
+
+        $result .= "| 1.$version  | $viewAction | $diffAction | $date | $wikiUserName | $comment |\n";
     }
 
     $result = "$result";