1#!/usr/bin/perl -w 2 3use strict; 4use Test::More tests => 8; 5use Mail::Internet; 6use Mail::ListDetector; 7 8my $mail = new Mail::Internet(\*DATA); 9my $list = new Mail::ListDetector($mail); 10ok(defined($list), 'list is defined'); 11is($list->listname, 'london.pm', 'listname is london.pm'); 12is($list->listsoftware, 'GNU Mailman version 2.0.1', 'List is mailman 2.0.1'); 13is($list->posting_address, 'london.pm@london.pm.org', 'posting address is london.pm@london.pm.org'); 14 15$mail->head->delete('Sender'); 16 17$list = new Mail::ListDetector($mail); 18 19ok(defined($list), 'list is defined'); 20is($list->listname, 'london.pm', 'listname is london.pm'); 21is($list->listsoftware, 'GNU Mailman version 2.0.1', 'List is mailman 2.0.1'); 22is($list->posting_address, 'london.pm@london.pm.org', 'posting address is london.pm@london.pm.org'); 23 24__DATA__ 25From london.pm-admin@london.pm.org Fri Aug 17 13:47:55 2001 26Return-Path: <london.pm-admin@london.pm.org> 27Received: from punt-2.mail.demon.net by mailstore for 28 lpm@mirth.demon.co.uk id 998052475:20:20927:5; Fri, 17 Aug 2001 12:47:55 29 GMT 30Received: from penderel.state51.co.uk ([193.82.57.128]) by 31 punt-2.mail.demon.net id aa2103774; 17 Aug 2001 12:47 GMT 32Received: from penderel ([127.0.0.1] helo=penderel.state51.co.uk) by 33 penderel.state51.co.uk with esmtp (Exim 3.03 #1) id 15Xj23-0004Oi-00; 34 Fri, 17 Aug 2001 13:47:23 +0100 35Received: from plough.barnyard.co.uk ([195.149.50.61]) by 36 penderel.state51.co.uk with esmtp (Exim 3.03 #1) id 15Xj1T-0004OQ-00 for 37 london.pm@london.pm.org; Fri, 17 Aug 2001 13:46:47 +0100 38Received: from richardc by plough.barnyard.co.uk with local (Exim 3.13 #1) 39 id 15Xj1E-0006Wp-00 for london.pm@london.pm.org; Fri, 17 Aug 2001 13:46:32 40 +0100 41From: Richard Clamp <richardc@unixbeard.net> 42To: london.pm@london.pm.org 43Subject: Re: better header 44Message-Id: <20010817134539.A9368@mirth.demon.co.uk> 45References: <170801229.13787@webbox.com> 46 <20010817122254.B18192@mccarroll.demon.co.uk> 47MIME-Version: 1.0 48Content-Type: text/plain; charset=us-ascii 49Content-Disposition: inline 50In-Reply-To: <20010817122254.B18192@mccarroll.demon.co.uk> 51User-Agent: Mutt/1.3.20i 52Sender: london.pm-admin@london.pm.org 53Errors-To: london.pm-admin@london.pm.org 54X-Beenthere: london.pm@london.pm.org 55X-Mailman-Version: 2.0.1 56Precedence: bulk 57Reply-To: london.pm@london.pm.org 58List-Id: London.pm Perl M[ou]ngers <london.pm.london.pm.org> 59List-Archive: <http://london.pm.org/pipermail/london.pm/> 60Date: Fri, 17 Aug 2001 13:45:39 +0100 61Status: RO 62Content-Length: 439 63Lines: 12 64 65On Fri, Aug 17, 2001 at 12:22:54PM +0100, Greg McCarroll wrote: 66> testing a reply to the announce list 67 68Could someone extend the hacks committed into changing the 69headers and the like, then they'd not be auto-filtered to the same 70place by such fine modules as Mail::ListDetector or lesser homebrew 71systems such as my own. 72 73The announce lists rocks, but that'd just make it rock so much harder. 74 75-- 76Richard Clamp <richardc@unixbeard.net> 77 78 79