* gnus-scum-expunge funtion nolonger works
@ 1999-09-29 18:14 Mick Gower
1999-11-06 2:01 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 3+ messages in thread
From: Mick Gower @ 1999-09-29 18:14 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: gnus-scum-expunge funtion nolonger works
1999-09-29 18:14 gnus-scum-expunge funtion nolonger works Mick Gower
@ 1999-11-06 2:01 ` Lars Magne Ingebrigtsen
1999-11-11 19:28 ` Mick Gower
0 siblings, 1 reply; 3+ messages in thread
From: Lars Magne Ingebrigtsen @ 1999-11-06 2:01 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: gnus-scum-expunge funtion nolonger works
1999-11-06 2:01 ` Lars Magne Ingebrigtsen
@ 1999-11-11 19:28 ` Mick Gower
0 siblings, 0 replies; 3+ messages in thread
From: Mick Gower @ 1999-11-11 19:28 UTC (permalink / raw)
>>> 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
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~1999-11-11 19:28 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1999-09-29 18:14 gnus-scum-expunge funtion nolonger works Mick Gower
1999-11-06 2:01 ` Lars Magne Ingebrigtsen
1999-11-11 19:28 ` Mick Gower
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).