From: Henrik Enberg <henrik@enberg.org>
Cc: ding@gnus.org
Subject: Re: [alt.religion.emacs] Re: lets get to the bottom of this once and for all
Date: Tue, 05 Nov 2002 19:04:06 +0100 [thread overview]
Message-ID: <87wunruc4p.fsf@enberg.org> (raw)
In-Reply-To: <yy7o7kfshr7p.fsf@css.css.sfu.ca> (Benjamin Lewis's message of "Tue, 05 Nov 2002 09:16:42 -0800")
Benjamin Lewis <bclewis@cs.sfu.ca> writes:
> Unfortunately, my "plonk" is currently `C-u 1000 M-i a L a s p <RET>' which
> is a bit more unwieldy... and I don't do it often enough to have bothered
> to simplify it yet.
I have the following in .gnus.el. It saves lusers in
~/News/all.BLACKLIST
(defun gnus-summary-blacklist-poster ()
"Put sender on current line in blacklist."
(interactive)
(let ((spammer (mail-header-from (gnus-summary-article-header)))
(current-score-file gnus-current-score-file))
(when (gnus-news-group-p gnus-newsgroup-name)
(gnus-score-change-score-file "all.BLACKLIST")
(gnus-summary-score-entry "From" spammer 'S' -1001 nil)
(gnus-score-change-score-file current-score-file)
(gnus-score-save))))
(eval-after-load "gnus-sum"
'(define-key gnus-summary-backend-map (kbd "x")
'gnus-summary-blacklist-poster))
You'll need to add (files "all.BLACKLIST") to all.SCORE.
--
Booting... /vmemacs.el
next prev parent reply other threads:[~2002-11-05 18:04 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-11-05 5:35 Luis Fernandes
2002-11-05 12:36 ` Simon Josefsson
2002-11-05 13:53 ` luis fernandes
2002-11-05 14:34 ` Reiner Steib
2002-11-05 15:25 ` Josh Huber
2002-11-05 17:16 ` Benjamin Lewis
2002-11-05 18:04 ` Henrik Enberg [this message]
2002-11-07 10:39 ` Kai Großjohann
2002-11-05 15:01 ` Kai Großjohann
2002-11-05 15:04 ` Per Abrahamsen
2002-11-05 15:30 ` luis fernandes
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87wunruc4p.fsf@enberg.org \
--to=henrik@enberg.org \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).