Subject: Re: The cross-posted Static Typing discussion
From: Erik Naggum <clerik@naggum.no>
Date: 1997/11/26
Newsgroups: comp.lang.lisp
Message-ID: <3089536619600484@naggum.no>


* Kent M. Pitman
| I wish all cross-posted conversations would go away.  If anyone has the
| Emacs lisp code to make cross-posted news postings get killed, I'd like
| to see that.  I tried (gnus-kill "Newsgroups" ",") but it complains that
| "Newsgroups" is not a header field.

that looks like a pretty old Gnus, but maybe this applies to old Gnus
versions, too: Gnus reads headers with the NNTP command XOVER, which
returns entries (lines) from a database of (tab-delimited) extracted header
values called NOV (News OverView).  which headers are extracted is a system
configuration option, but certain headers are required and standard.  I
believe Xref is among those headers, provided that your NNTP server adds it
to incoming articles in the first place.  (it's a local header, like Path.)

the Xref header looks like this (your article, at my news server):

    Xref: ifi.uio.no comp.lang.lisp:29614

with additional newsgroups and article numbers appended in like manner.
it follows that a cross-posted articles differs from a non-cross-posted
article in that it has at least three colons in this header line.  (two
colons if we only look only at the header's value.)

so (gnus-kill "xref" ":[^:]+:[^:]+:") should kill cross-posted articles,
leaving non-cross-posted articles behind.  it works like that here, at
least.  you might want to check that articles actually have sane Xref
headers and that the NOV database has Xref headers.

#\Erik
-- 
if you think this year is "97", _you_ are not "year 2000 compliant".

see http://sourcery.naggum.no/emacs/ for GNU Emacs 20-related material.