From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25546 Path: main.gmane.org!not-for-mail From: Mick Gower Newsgroups: gmane.emacs.gnus.general Subject: gnus-scum-expunge funtion nolonger works Date: 29 Sep 1999 19:14:21 +0100 Organization: Taking No Notice Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035162911 14518 80.91.224.250 (21 Oct 2002 01:15:11 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:15:11 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA03019 for ; Wed, 29 Sep 1999 14:15:51 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id NAB11574; Wed, 29 Sep 1999 13:14:36 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 29 Sep 1999 13:15:03 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id NAA24898 for ; Wed, 29 Sep 1999 13:14:49 -0500 (CDT) Original-Received: from oracle.clara.net (oracle.clara.net [195.8.69.94]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA02977 for ; Wed, 29 Sep 1999 14:12:49 -0400 (EDT) Original-Received: from [212.126.133.47] (helo=dexter.clara.co.uk) by oracle.clara.net with esmtp (Exim 2.12 #2) id 11WODV-000ABJ-00 for ding@gnus.org; Wed, 29 Sep 1999 19:12:37 +0100 Original-Received: (from mick@localhost) by dexter.clara.co.uk (8.9.3/8.9.3) id TAA32107; Wed, 29 Sep 1999 19:14:23 +0100 Original-To: ding@gnus.org X-URL: http://i.am/knackered/ X-Attribution: MJG Original-Lines: 53 User-Agent: Gnus/5.07009701 (Pterodactyl Gnus v0.97.1) XEmacs/20.4 (Emerald) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:25546 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25546 I, in common with a lot of people, use the gnus-scum-expunge function as quoted below, but since upgrading to pgnus it no longer works, this is the error message. Recent minibuffer messages (most recent first): Invalid function: (macro . #) Generating summary...done Generating summary... Scoring...done Scoring... Fetching headers for uk.media.tv.sky...done Fetching headers for uk.media.tv.sky... Any ideas why and how to fix TIA. ;;------------------------- gnus-scum-expunge ---------------- ;; quick nuke people :-) (global-set-key "\C-cx" 'gnus-scum-expunge) ; see below gnus ;; This function should be called from the summary buffer with point ;; on the article to nuke. It puts a rule in ~/News/Scores/SMEGHEADS to lower ;; scores of author ;; It needs an entry in all.SCORE of (files "~/News/Scores/SMEGHEADS"). ;; I changed it to only add the from line. (defun gnus-scum-expunge () ;; "Remove this spammer from existance as much as possible." (interactive) (let* ((hdr (gnus-summary-article-header)) (subj (aref hdr 1)) (auth (aref hdr 2)) (artid (aref hdr 4)) (atsign (string-match "@" artid)) (host (substring artid (+ atsign 1) (- (length artid) 1))) (oldscfile gnus-current-score-file)) ;; Change to our spammer score file (gnus-score-change-score-file "SMEGHEADS") ;; Add our horrible spammer scores (gnus-summary-score-entry "Subject" subj 'S' -5 nil) (gnus-summary-score-entry "From" auth 'S' -10000 nil) ;; (gnus-summary-score-entry "Message-ID" host 'S' -5 nil) ; mild ;; Change back to old current score file (gnus-score-change-score-file oldscfile) (gnus-score-save))) ;;; ; -- Mick Gower