--- config_parse.pl.orig	Tue Sep  2 00:36:08 1997
+++ config_parse.pl	Tue Sep  2 00:39:58 1997
@@ -344,8 +344,10 @@
 The text is expanded before being used. The following expansion tokens
 are defined: \$LIST - the name of the current list, \$SENDER - the
 sender as taken from the from line, \$VERSION, the version of
-majordomo. If used in a digest, only the expansion token _SUBJECTS_ is
-available, and it expands to the list of message subjects in the digest",
+majordomo. If used in a digest, the expansion tokens _SUBJECTS_ and
+_SUBJECTS-AUTHORS_ are available. _SUBJECTS_ expands to the list of 
+message subjects in the digest, and _SUBJECTS-AUTHORS_ expands to the list
+of message subjects and the email address of the authors.",
 
 'message_footer',
 "Text to be appended at the end of all messages posted to the list.
--- digest.orig	Mon Sep  1 23:11:07 1997
+++ digest	Tue Sep  2 00:28:59 1997
@@ -14,6 +14,16 @@
 # 
 # 
 
+# 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]
+# 
+# replace _SUBJECTS_ with _SUBJECTS-AUTHORS_ in your list config file
+# to get the new summary.
+
+
+
 # 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'; # ';
@@ -186,6 +196,11 @@
 	    $subj = ($head =~ /^Subject:\s+(.*)/i)? $1: "[none]";
 	    ($from) = $head =~ /^From:\s+(.*)/i;
 	    ($date) = $head =~ /^Date:\s+(.*)/i;
+	    
+	    $subjects_authors_from = substr($from,0,71-length($subj));
+	    $subjects_authors_width = length($subjects_authors_from) + length($subj);
+	    $subjects_authors_center = " " x int(71-$subjects_authors_width);
+	    $subjects_authors =  "$subj $subjects_authors_center [$subjects_authors_from]";
 
 	    undef $/;
 	    $body = <message>;
@@ -207,6 +222,7 @@
 ##      Date:, From:, To:, Cc:, Subject:, Message-ID:, and Keywords:
 
 	    push(@subj,$subj);
+	    push(@subjects_authors,$subjects_authors);
 	    print TEMP <<EOF;
 Date: $date
 From: $from
@@ -257,6 +273,11 @@
 		    foreach $subj (@subj) {
 			    print DIGEST $pre,$subj,"\n";
 		    }
+	    }elsif (/_SUBJECTS-AUTHORS_/) {
+		    $pre = "  ";
+		    foreach $subjects_authors (@subjects_authors) {
+			    print DIGEST $pre,$subjects_authors,"\n";
+		    }
 	    }else{
 		    print DIGEST "$_\n";
 	    }
@@ -287,6 +308,7 @@
     }
 
     undef @subj;
+    undef @subjects_authors;
     undef @processed;
 
     return 0;