--- digest.orig	Sun Feb 16 19:05:42 1997
+++ digest	Sun Feb 16 23:53:50 1997
@@ -14,6 +14,12 @@
 # 
 # 
 
+# patch by Jeff Wasilko (jeffw@smoe.org) to use a more detailed
+# _SUBJECTS_ summary that inlcudes the user's address as well:
+#  Re: NJC: Reflective songs        [amelie@juno.com (Amelie R Cabanas-Brown)]
+#  Re: NJC: Reflective songs                                  [Grrly1@aol.com]
+
+
 # Before doing anything else tell the world I am majordomo
 # The mj_ prefix is reserved for tools that are part of majordomo proper.
 $main'program_name = 'mj_digest'; # ';
@@ -189,6 +195,11 @@
 	    $subj = ($head =~ /^Subject:\s+(.*)/i)? $1: "[none]";
 	    ($from) = $head =~ /^From:\s+(.*)/i;
 	    ($date) = $head =~ /^Date:\s+(.*)/i;
+	    
+	    $custom_fronter_from = substr($from,0,71-length($subj));
+	    $custom_fronter_width = length($custom_fronter_from) + length($subj);
+	    $custom_fronter_center = " " x int(71-$custom_fronter_width);
+	    $custom_fronter =  "$subj $custom_fronter_center [$custom_fronter_from]";
 
 	    undef $/;
 	    $body = <message>;
@@ -209,7 +220,7 @@
 ## presented in the following order:
 ##      Date:, From:, To:, Cc:, Subject:, Message-ID:, and Keywords:
 
-	    push(@subj,$subj);
+	    push(@custom_fronter,$custom_fronter);
 	    print TEMP <<EOF;
 Date: $date
 From: $from
@@ -256,9 +267,9 @@
 
     foreach (split(/\n/,$HEADER)) {
 	    if (/_SUBJECTS_/) {
-		    $pre = $`;
-		    foreach $subj (@subj) {
-			    print DIGEST $pre,$subj,"\n";
+		    $pre = "  ";
+		    foreach $custom_fronter (@custom_fronter) {
+			    print DIGEST $pre,$custom_fronter,"\n";
 		    }
 	    }else{
 		    print DIGEST "$_\n";
@@ -289,7 +300,7 @@
 	unlink(@processed);
     }
 
-    undef @subj;
+    undef @custom_fronter;
     undef @processed;
 
     return 0;