Re: CONFIRM s[0-9]*

[Martin Schulze <joey@kuolema.Infodrom.North.DE>]

Raul Miller wrote:
> Can we get the mailing list handler to bounce messages based on
> something like:
> 
> perl -ne '
> 	$subj= /^Subject: *(.*) */;
> 	die "debian-devel is not debian-devel-request\n"
> 		if $subj=~/^CONFIRM s\d{14,16}$/;
> 	exit if $subj

Can you tell me how to expand smartlist to filter this out?

This is the rule of which I *think* it ouught to filter:

:0
* $$=^0
* $${maintainer:+9876543210^0 ^From[: ](.*\<)?$\maintainer\>}
* 9876543210^0 ^(Subject:(.*\<)?(Re:|magazine)\>)|X-(Diagnostic|Mailing-List):
* -25^0 ^\
      Subject:([	 ]*(archives?:?([	 ]+(\
	  (send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
	  list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
	 ([	 ]|$)|[	 ]*$)|\
	help|info|join|leave|\
	(Could you )?(please )?\
	(cancel(( my)? subscription)?|add|\
	 sign( [^ ]+ |-)?o(n|ff)|(un|de)?-?sub)[	 ]*$)|\
       .*( (join|leave|add .* to|(delete|remove) .* from|\
	 (take|sign|get) .* off|(put|sign) .* on) .* [a-z-]*list|\
	 (un-?|sub?)s(cr|c|r)i(be|ption))\>)
* -50^0 ^Subject:[	 ]*[(<]no(ne| subject\
	 ( (\(file transmission|given))?)[>)]$
*  50^0 ^Subject:.*[a-z]
* -100^0 B ?? ^^([	 ]|$)*\
      ((((archives?:?($|[	 ]+)|\
	  ((send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
	    list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
	   ([	 ].*)?$)([	 ]|$)*)+\
	    ([^	 a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^|\
	(help|info)[	 ]*$|\
	(add|join|leave|sign( [^ ]+ |-)?o(n|ff)|(un|de)?-?sub)\>)|\
       ([^	 a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^|\
       .*( (join|leave|add .* to|(delete|remove) .* from|\
	 (take|sign|get) .* off|(put|sign) .* on) .* [a-z-]*list|\
	 (un-?|sub?)scri(be|ption))\>|\
       ^^)

Since I'm not able to achieve this I'm filing a whishlist bug against
smartlist. 

Regards,

	Joey

-- 
The only stupid question is the unasked one.