-----BEGIN PGP SIGNED MESSAGE----- Earlier, Graham mentioned some concerns about anonymous mail; specifically it isn't easy to respond to the author, most messages are off topic, etc. (hopefully not referring to my posts sent through remailers :-) on topics like the cypherpunks gopher and caching remailers...) And some people are asking about marking anonymous mail (gopher plug: check the article "Why Mark Anonymous Mail?" at the gopher site in the "Anonymous Mail" section, contributed by Hal Finney sometime ago). Currently, I sign my posts sent through anonymous remailer, sometimes including my address at the bottom of the post itself. I know others do this as well - Hal Finney, probably others I can't think of. I am working on (and off as time constraints crop up) a positive reputation scheme for anonymous mail. My stab at this is somewhat modest: a program that sifts through elm mail folders (similar to the elm frm command) and produces a formatted list containing message number, email address of author (frm sometimes reports name and I like email addresses instead), and subject. BUT, instead of printing email address, if the message is pgp signed, report the signature instead. Under this program, the fact that an anonymous remailer was used is somewhat transparent since you would see who signed the document sent through a remailer. This would allow somebody to build up a positive reputation attached to a pgp signature (which could be fairly anonymous) and possibly help guide anonymous mail kill file users. Naturally, it would be best if it were easy to respond to an anonymous mail, if this were incorporated into mail programs, etc. but I have two problems: time constraints, and disk quota (I can't lay out the source code for elm, pgp, whatever else). I'm to the point where the script I include below does what I want expect check for digital signatures on letters. Since there isn't a pgp library (yet), the next step will be difficult since I'd rather not pipe the message through pgp just to get the signature, although for testing I'll implement something in the next few weeks. Here is the script: if anybody has input, speak up! I named it scan after the mh command it is a poor imitation of. Usage: 'scan foldername returns a formatted list of mail in the folder "foldername" Ug, I see an improvement I will make tonight: using getenv() to get my home directory instead of plugging it in directly: - ----------8< cut here >8---------- #!/usr/local/bin/perl #report email address and subject of messages in an elm folder #frm sometimes reports name and not email address - not that I # guarantee this works in all cases #simple version of mh scan command #Karl L. Barrus <klbarrus@owlnet.rice.edu> chdir "/home/klbarrus/Mail" || die "Can't cd to ~/Mail\n"; while (@ARGV) { $file = shift @ARGV; if (-T $file) { if (-z $file) { #zero length folders with no messages print "Folder $file has no messages\n"; } elsif (!open(FOLDER, "/home/klbarrus/Mail/$file")) { print STDERR "Can't open $file\n"; } else { $state = 1; #Look for a new message $num = 0; while (<FOLDER>) { if (/^From[^:]/) { #Delimits a new message $num++; $from = ""; $subject = ""; $state = 2; #Look for From: and Subject: } if ($state == 2) { #Already found a message; looking for headers /^Subject: (.*)/ && ($subject = $1); #match subject /^From: (.+)/ && ($from = $1); #match "From: add" /^From: (.+) <(.+)>/ && ($from = $2); #match "From: name <add>" /^From: (.+) \((.+)\)/ && ($from = $1); #match "From: add (name)" if ($from ne "" && $subject ne "") { #found both headers $state = 1; #go back to looking for message delimiter write; } } } } } elsif (-d $file) { print STDERR "$file is a directory\n"; } } exit; format STDOUT_TOP =