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