goto-last-article spanning groups?

[Kevin Brubeck Unhammer]

I notice gnus-summary-goto-last-article doesn't span groups in my
version (v5.13, I know it's old). Does anyone have a hack to make it go
to the last one even if you moved into another group? That's typically
when I want it the most …

best regards,
Kevin Brubeck Unhammer

[Tassilo Horn]

Kevin Brubeck Unhammer <unha...@fsfe.org> writes:

Hi Kevin,

> I notice gnus-summary-goto-last-article doesn't span groups in my
> version (v5.13, I know it's old).

It doesn't span groups in the current git version, too.

> Does anyone have a hack to make it go to the last one even if you
> moved into another group? That's typically when I want it the most …

When I think about it, it really sounds like a very useful feature. I
also had situations before where I'd like to be able to quickly list the
mails I've read the last hour/day/week.

Bye,
Tassilo

[Adam Sjøgren]

Cue Ted Zlatanov replying "You could use the Gnus registry for this!"

This is too easy.


:-),

--
"500 mil i snön Adam Sjøgren
Ett UFO över sjön as...@koldfront.dk
och i en blixt dansar
Lady Day vals med Astaire"

[Kevin Brubeck Unhammer]

as...@koldfront.dk (Adam Sjøgren) writes:

> On Tue, 20 Mar 2012 21:32:49 +0100, Tassilo wrote:
>
>> Kevin Brubeck Unhammer <unha...@fsfe.org> writes:
>
>>> I notice gnus-summary-goto-last-article doesn't span groups in my
>>> version (v5.13, I know it's old).
>
>> It doesn't span groups in the current git version, too.
>
>>> Does anyone have a hack to make it go to the last one even if you
>>> moved into another group? That's typically when I want it the most …
>
>> When I think about it, it really sounds like a very useful feature. I
>> also had situations before where I'd like to be able to quickly list the
>> mails I've read the last hour/day/week.
>
> Cue Ted Zlatanov replying "You could use the Gnus registry for this!"
>
> This is too easy.

Sorry, I still haven't explored gnus-registry, could you give me a bit
more of a hint than that?

Or does anyone have an example on using gnus-registry for the list of
last read messages?

[Tassilo Horn]

Hi Kevin,

I've just hacked something together.

--8<---------------cut here---------------start------------->8---
(defvar th-gnus-recent-articles-list nil
"The list of articles read in this emacs session.")

(defun th-gnus-track-recent-article ()
(set-buffer gnus-summary-buffer)
(let ((header (gnus-summary-article-header)))
(add-to-list 'th-gnus-recent-articles-list (mail-header-id header))))

(add-hook 'gnus-article-prepare-hook 'th-gnus-track-recent-article)

(defun th-gnus-group-make-recency-group ()
(interactive)
(if (= 0 (length th-gnus-recent-articles-list))
(message "No recent articles.")
;; FIXME
(make-me-a-group-of th-gnus-recent-articles-list)))
--8<---------------cut here---------------end--------------->8---

That will track all articles you read (in the current emacs session) in
a list. The problem is just that `make-me-a-group-of' doesn't
exist. ;-)

How can I create and select an new ephemeral group? Basically, I can
just enter some arbitrary group and do

(dolist (id th-gnus-recent-articles-list)
(gnus-summary-refer-article id))

and gnus will magically insert the articles into the current summary.
The magic involved can be specified by `gnus-refer-article-method'. But
I'd rather want to start from a fresh group instead of selecting some
arbitrary group...

Bye,
Tassilo

[Drew Raines]

Tassilo Horn wrote:

[...]

> That will track all articles you read (in the current emacs session) in
> a list. The problem is just that `make-me-a-group-of' doesn't
> exist. ;-)

Did you ever get anywhere with this, Tassilo?

Drew