🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.gnus
Article #883

Re: changing meaning of gnus-execute, ...

#883
From: Brandon S. Allbery
Date: Mon, 26 Feb 1990 01:22
25 lines
1634 bytes
As quoted from <BBC.90Feb24185812@legia.rice.edu> by bbc@legia.rice.edu (Benjamin Chase):
+---------------
| 	(defun gnus-kill (field regexp &optional command all)
| 	  "If FIELD of an article matches REGEXP, execute COMMAND.
| 
| I'd like to change gnus-kill, or something similar, so that you can
| supply a function of one argument in the place of REGEXP, the regular
| expression that is matched against the specified field.  Why?  So I
| can do something like:
| 
| 	; Return true if the value of an Xref field mentions more
| 	; than two newsgroups.
+---------------

(gnus-kill "Xref" ".*" 'kill-article-if-too-many-xrefs)

You *can* do all the selection in the executive function, you know.  Just
select every value of the "Xref" field, then let your command issue the actual
kill command if it sees something it doesn't like.

++Brandon
-- 
Brandon S. Allbery (human), allbery@NCoast.ORG (Inet), BALLBERY (MCI Mail)
ALLBERY (Delphi), uunet!cwjcc.cwru.edu!ncoast!allbery (UUCP), B.ALLBERY (GEnie)
BrandonA (A-Online) ("...and a partridge in a pear tree!" ;-)
Technical Details
Message-ID: <1990Feb26.012243.16140@NCoast.ORG>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!usenet.ins.cwru.edu!cwjcc!ncoast!allbery
References: <BBC.90Feb24185812@legia.rice.edu>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!usenet.ins.cwru.edu!cwjcc!ncoast!allbery
From: allbery@NCoast.ORG (Brandon S. Allbery)
Newsgroups: gnu.emacs.gnus
Subject: Re: changing meaning of gnus-execute, ...
Message-ID: <1990Feb26.012243.16140@NCoast.ORG>
Date: 26 Feb 90 01:22:43 GMT
References: <BBC.90Feb24185812@legia.rice.edu>
Reply-To: allbery@ncoast.ORG (Brandon S. Allbery)
Followup-To: gnu.emacs.gnus
Distribution: gnu
Organization: North Coast Public Access UN*X, Cleveland, OH
Lines: 25