From: Dan Christensen <jdc@chow.mat.jhu.edu>
Subject: Re: M-g on a group moves to next group
Date: Fri, 05 Mar 1999 12:17:47 -0500 [thread overview]
Message-ID: <x7g17j26v8.fsf@chow.mat.jhu.edu> (raw)
In-Reply-To: Dan Christensen's message of "04 Mar 1999 15:16:22 -0500"
[I meant to send this to the list, since it contains a recommendation
for a change to Gnus, but had actually just sent it to Jason.]
Jason L Tibbitts III <tibbs@math.uh.edu> writes:
> I'd also like to have
> ...
> short key sequences to get straight to new news in my inbox and other
> important groups from wherever I happen to be.
You could use something like what I've attached below. I think the
third function, which prompts for a group name (with completion) and
selects that group, would be a useful addition to Gnus. I have it
bound to `J' in both the *Group* and *Summary* buffers, and I use it
all the time.
Dan
; move point to the line in the group buffer containing my inbox
(defun jdc-gnus-group-jump-to-inbox ()
(interactive)
(gnus-group-jump-to-group "nnfolder:Inbox"))
; select my inbox
(defun jdc-gnus-group-select-inbox (&optional all)
(interactive "P")
(gnus-group-read-group all t "nnfolder:Inbox"))
; select an arbitrary group; something like this would be
; great to have as part of Gnus.
(defun jdc-gnus-group-select-a-group (group &optional all)
"Select newsgroup GROUP.
Interactively, query for group name with completion.
No article is selected automatically.
If ALL is non-nil, already read articles become readable.
If ALL is a number, fetch this number of articles."
(interactive
(list (completing-read
"Group: " gnus-active-hashtb nil
(gnus-read-active-file-p)
nil
'gnus-group-history)
current-prefix-arg))
(when (equal group "")
(error "Empty group name"))
(gnus-group-read-group all t group))
(global-set-key [f11 ?i] 'jdc-gnus-group-select-inbox)
(add-hook 'gnus-group-mode-hook
'(lambda ()
(define-key gnus-group-mode-map "/" 'jdc-gnus-group-jump-to-inbox)
(define-key gnus-group-mode-map "J" 'jdc-gnus-group-select-a-group)
(define-key gnus-group-mode-map "i" 'jdc-gnus-group-select-inbox)))
(add-hook 'gnus-sum-load-hook
'(lambda nil
(define-key gnus-summary-mode-map "J" 'jdc-gnus-group-select-a-group)
(define-key gnus-summary-mode-map "i" 'jdc-gnus-group-select-inbox)
))
next prev parent reply other threads:[~1999-03-05 17:17 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-03-04 17:37 Dmitry Yaitskov
1999-03-04 17:53 ` Kai.Grossjohann
1999-03-04 19:01 ` Jason L Tibbitts III
1999-03-05 16:02 ` Justin Sheehy
1999-03-05 17:06 ` Jason L Tibbitts III
1999-03-05 18:32 ` Justin Sheehy
[not found] ` <x7k8wxxb6x.fsf@chow.mat.jhu.edu>
1999-03-05 17:17 ` Dan Christensen [this message]
1999-03-04 19:05 ` Justin Sheehy
1999-03-04 19:19 ` Alan Shutko
1999-03-04 19:38 ` Dmitry Yaitskov
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=x7g17j26v8.fsf@chow.mat.jhu.edu \
--to=jdc@chow.mat.jhu.edu \
/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).