From: Tassilo Horn <tassilo@member.fsf.org>
To: info-gnus-english@gnu.org
Subject: Re: goto-last-article spanning groups?
Date: Thu, 22 Mar 2012 12:48:06 +0100 [thread overview]
Message-ID: <87obro26x5.fsf@thinkpad.tsdh.de> (raw)
In-Reply-To: <87aa39ks94.fsf@fsfe.org>
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
next prev parent reply other threads:[~2012-03-22 11:48 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-03-20 13:27 Kevin Brubeck Unhammer
2012-03-20 20:32 ` Tassilo Horn
2012-03-20 21:15 ` Adam Sjøgren
2012-03-22 7:29 ` Kevin Brubeck Unhammer
2012-03-22 11:48 ` Tassilo Horn [this message]
2013-05-22 18:36 ` Drew Raines
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87obro26x5.fsf@thinkpad.tsdh.de \
--to=tassilo@member.fsf.org \
--cc=info-gnus-english@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).