Re: goto-last-article spanning groups?

[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