Re: Expiring old low-score threads

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Tassilo Horn <tsdh@gnu.org> writes:

> Hi all,
>
> I'm reading quite a few high-traffic mailing lists, and my mailbox is
> shortly before running out of space.  So I want to do some expiry.
> Basically, I could use total-expire, say, after 365 days, but I'd prefer
> if I could expire threads I'm not interested in much earlier than
> threads that are interesting to me.
>
> So now I'm trying to write a command that walks over all threads in the
> current summary and marks all threads that have a score lower than -30
> and whose most recent article is older than 60 days as expirable.
> That's what I came up with so far.

[...]

> How can I fix this?  I mean, I obviously want to run my command in
> complete summary containing all articles I've ever received in that
> group.  Of course, chances are high that the group contains incomplete
> threads with false roots where ^ (gnus-summary-refer-parent-article)
> won't cure the symptoms.

It's highly unlikely that I'm actually going to be able to help you with
this, but in trying to write functions that run over *all* the messages
in a group I've usually had to start them like this:

(defun  th-gnus-summary-exprire-old-lowscore-articles (group)
  (interactive (list (gnus-group-group-name)))
  (let ((gnus-large-newsgroup nil))
    (gnus-summary-read-group group t t nil)

That at least ensures that all the available messages are present in the
*Summary* buffer.

To be honest I haven't had much luck manipulating Gnus
programmatically...

Eric