From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/21789 Path: main.gmane.org!not-for-mail From: Dan Christensen Newsgroups: gmane.emacs.gnus.general Subject: Re: M-g on a group moves to next group Date: Fri, 05 Mar 1999 12:17:47 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035159828 24736 80.91.224.250 (21 Oct 2002 00:23:48 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:23:48 +0000 (UTC) Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id MAA24231 for ; Fri, 5 Mar 1999 12:19:22 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id LAB17257; Fri, 5 Mar 1999 11:18:15 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 05 Mar 1999 11:18:40 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id LAA15971 for ; Fri, 5 Mar 1999 11:18:30 -0600 (CST) Original-Received: from jhuml2.hcf.jhu.edu (jhuml2.hcf.jhu.edu [128.220.2.87]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id MAA24209 for ; Fri, 5 Mar 1999 12:18:21 -0500 (EST) Original-Received: from chow.mat.jhu.edu (chow.mat.jhu.edu [128.220.25.2]) by jhmail.hcf.jhu.edu (PMDF V5.2-29 #26381) with ESMTP id <01J8GYNH2BI0EJ6TH2@jhmail.hcf.jhu.edu> for ding@gnus.org; Fri, 5 Mar 1999 12:17:48 EDT Original-Received: (from jdc@localhost) by chow.mat.jhu.edu (8.9.1/8.9.1) id MAA16661; Fri, 05 Mar 1999 12:17:47 -0500 (EST) In-reply-to: Dan Christensen's message of "04 Mar 1999 15:16:22 -0500" Original-To: ding@gnus.org X-Mailer: Gnus v5.6.43/Emacs 19.34 Original-Lines: 62 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:21789 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:21789 [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 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) ))