Our friend hipcrime

[Jeremy]

On Mon, Apr 17, 2000 at 09:57:51AM -0600, Pete Ashdown wrote:

>            if ((($hdr{"Control"} =~ /newgroup/) ||
>              ($hdr{"Control"} =~ /rmgroup/)) &&
>             ($hdr{"X-No-Archive"})) {
>             $rval = "Control newgroup or rmgroup with X-No-Archive"; }
> 
> I also put similar lines in my cleanfeed filter on my NNTPrelay hub.
> However, they're still getting in and still taking place.  Is there a
> patch that fixes this bug?

I dunno about NNTPRelay, but it won't work on INN because X-No-Archive
isn't passed to the Perl filter.  Try the below; I'm not sure how hacked
my source is or if this will auto-apply to the standard source, but it's
pretty simple:

*** art.c.old   Mon Apr 17 13:37:38 2000
--- art.c       Mon Apr 17 13:38:15 2000
***************
*** 139,144 ****
--- 139,145 ----
      { "X-Cancelled-By",       HTstd },
      { "X-Canceled-By",        HTstd },
      { "Cancel-Key",           HTstd },
+     { "X-No-Archive",         HTstd },
  };

  ARTHEADER     *ARTheadersENDOF = ENDOF(ARTheaders);

Also note that the code you posted won't work "as is" in cleanfeed, as
cleanfeed doesn't use $rval.

-Jeremy