[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Kill certain articles in certain groups all from gnus.el
From: |
Tassilo Horn |
Subject: |
Re: Kill certain articles in certain groups all from gnus.el |
Date: |
Thu, 25 Apr 2013 08:44:04 +0200 |
User-agent: |
Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.3.50 (gnu/linux) |
jidanni@jidanni.org writes:
> Gentlemen, I wish to
> Kill (so I don't see them) all articles
> that match Subject: /xxx/
> whose group name matches: /yyy/
> and have this all contained within my .gnus.el file for easy maintenance.
>
> I don't want to have 15 identical files one for each group.
>
> I don't want a global kill string that matches every group.
>
> I don't want this stuck in some binary .eld file that I have to fight
> with gnus about who gets to edit it.
This is completely untested, but I think it should do the job. It
creates a score file /tmp/gnus.score that contains just one entry
assigning to xxx articles a score of -10000. Via gnus-parameters, this
score file will be used in yyy groups only. Additionally, the expunge
below limit is set to -9999 in those groups so that you don't see the
articles at all.
--8<---------------cut here---------------start------------->8---
(defvar my-gnus-yyy-score-file
(expand-file-name "gnus.score"
temporary-file-directory))
(with-temp-buffer
;; Every article with a Subject containing "xxx" gets a score of -10000.
(insert "((\"subject\" (\"xxx\" -10000 nil r)))")
(write-file my-gnus-yyy-score-file))
(setq gnus-parameters
`(("yyy" ;; In every group matching "yyy" use the score file generated
;; above.
(score-file . ,my-gnus-yyy-score-file)
;; Don't show articles with a score lower than -9999.
(gnus-summary-expunge-below -9999))))
--8<---------------cut here---------------end--------------->8---
Not sure, maybe there's a better way to do that...
Bye,
Tassilo