Re: [Plonked] Re: Lisse = Haber?

[Clemens Schüller]

Servus!

Andreas Kohlbach schrieb am 27. Apr. 2021 um 18:57:


> Dem einen oder anderen sollte man *PLONK* vielleicht noch erklären. Tue
> ich hiermit:
>
> *P* lease
> *L* eave
> *O* ur
> *N* newsgroup
> *K* utwijf (dutch for cunt)

Für die gnus User:

--8<---------------cut here---------------start------------->8---
gnus-scum-expunge is an interactive Lisp function in
‘~/.gnus.d/.gnus’.

It is bound to C-c x.

(gnus-scum-expunge)

Remove this spammer from existance as much as possible.
--8<---------------cut here---------------end--------------->8---

#+begin_src emacs-lisp
;; Lästige Zeitgenossen killfilen

(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 "SPAMMERS")
;; Add our horrible spammer scores
;;(gnus-summary-score-entry "Subject" subj 'S' -1000 nil)
(gnus-summary-score-entry "From" auth 'S' -500 nil)
;;(gnus-summary-score-entry "Message-ID" host 'S' -500 nil)
;; Change back to old current score file
(gnus-score-change-score-file oldscfile)
(gnus-score-save)))

;;* Mit Control-cx wird zugeschlagen.
(global-set-key "\C-cx" 'gnus-scum-expunge)
#+end_src


Ganz wichtig: In der all.SCORE muss

--8<---------------cut here---------------start------------->8---
(files "~/.gnus.d/News/SPAMMERS")
--8<---------------cut here---------------end--------------->8---

stehen - sonst gehts nicht.



Crosspost & Followup-To: de.comm.software.gnus
--
LieGrü aus Graz, Clemens