[Top][All Lists]

[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) 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"

  ;; 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...


reply via email to

[Prev in Thread] Current Thread [Next in Thread]