gnus-scum-expunge funtion nolonger works

gnus-scum-expunge funtion nolonger works

[Mick Gower]

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 . #<compiled-function (from "gnus-sum.elc") (&optional number) "...(15)" [gnus-data-header gnus-data-find number (gnus-summary-article-number)] 3 ("/usr/local/share/emacs/site-lisp/gnus-sum.elc" . 76755)>)
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

Re: gnus-scum-expunge funtion nolonger works

[Lars Magne Ingebrigtsen]

Mick Gower <mick@dexter.clara.co.uk> writes:

> 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 . #<compiled-function (from "gnus-sum.elc") (&optional number) "...(15)" [gnus-data-header gnus-data-find number (gnus-summary-article-number)] 3 ("/usr/local/share/emacs/site-lisp/gnus-sum.elc" . 76755)>)

This means that Gnus was unproperly byte-compiled.  Did you say "make" 
in the main directory?

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: gnus-scum-expunge funtion nolonger works

[Mick Gower]

>>> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

LMI> Mick Gower <mick@dexter.clara.co.uk> writes:
>> 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 . #<compiled-function (from "gnus-sum.elc") (&optional number) "...(15)" [gnus-data-header gnus-data-find number (gnus-summary-article-number)] 3 ("/usr/local/share/emacs/site-lisp/gnus-sum.elc" . 76755)>)

LMI> This means that Gnus was unproperly byte-compiled.  Did you say "make" 
LMI> in the main directory?

To be frank its been a while since I posted this error. I have just
tried it again and it works ok. So it must have been inexperience on my
part when I built my first Gnus. I know I now use `make EMAC=xemacs'
after configure.

Thanks for replying.. 
-- 
Mick Gower