# Generic Listname identification
# 20030517/1134 SBS	Updated to handle quoted Sender text
# 20040210/2140 SBS	Optimized to eliminate shell/sed in the fallback
#			portion.

# First, grab stuff based on common "extra" headers inserted by lists,
# including RFC-2369 and RFC-2919 specified headers, compensating for
# text comments which have been encountered on some lists.

:0
* 9876543210^0 ^(Sender:[ 	]*owner-|X-BeenThere:[ 	]*|Delivered-To:[ 	]*mailing list )\/[-A-Za-z0-9_+]+
* 9876543210^0 ^(List-Post:[ 	]*(<mailto:)?|List-Owner:[ 	]*(<mailto:)?owner-)\/[-A-Z0-9_+]+
* 9876543210^0 ^Sender:.* List"? <(mailto:)?\/[-A-Z0-9_+]+
{
	LISTNAME=$MATCH
}

# The second and third conditions were found in posts from Bart Schaefer
# dated 2002-07-18 - these optimize this fallback recipe so that it
# doesn't require the use of a shell, pipe, and sed to eliminate the -owner
# suffix.
#
# first, get the owner address (if the sender follows that syntax)
# Grab everything up through the last hyphen
# Grab everything except that last hyphen
# This is optimized to be one recipe, since MATCH will assume the set value
# after each condition line, and if the FIRST condition matches, the two that
# follow it definatley should.
:0E
* ^Sender:[ 	]*\/[-A-Z0-9_+]+-owner
* MATCH ?? ^^\/.+-
* MATCH ?? ^^\/([^-]|-[^-])+
{
	LISTNAME=$MATCH
}

# If the listname isn't blank, emit it to the logfile.
# (wholly optional)
:0
* ! LISTNAME ?? ^^^^
{
	LOG="List: $LISTNAME$NL"
}