From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/30090 Path: main.gmane.org!not-for-mail From: Arcady Genkin Newsgroups: gmane.emacs.gnus.general Subject: [gnu.emacs.sources] gnus-easy-threading.el Date: 21 Apr 2000 16:09:02 -0400 Organization: thpoon.com Sender: owner-ding@hpc.uh.edu Message-ID: <87hfcvgqsh.fsf@tea.thpoon.com> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035166665 6610 80.91.224.250 (21 Oct 2002 02:17:45 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:17:45 +0000 (UTC) Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id 0DA8FD051E for ; Fri, 21 Apr 2000 16:09:41 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB27100; Fri, 21 Apr 2000 15:09:39 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 21 Apr 2000 15:09:05 -0500 (CDT) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id PAA06522 for ; Fri, 21 Apr 2000 15:08:49 -0500 (CDT) Original-Received: from mail1.rdc3.on.home.com (mail1.rdc3.on.home.com [24.2.9.40]) by mailhost.sclp.com (Postfix) with ESMTP id 15906D051E for ; Fri, 21 Apr 2000 16:09:05 -0400 (EDT) Original-Received: from tea.thpoon.com ([24.114.152.71]) by mail1.rdc3.on.home.com (InterMail vM.4.01.02.00 201-229-116) with ESMTP id <20000421200903.SASX15824.mail1.rdc3.on.home.com@tea.thpoon.com> for ; Fri, 21 Apr 2000 13:09:03 -0700 Original-Received: from antipode by tea.thpoon.com with local (Exim 3.12 #1 (Debian)) id 12ijja-0001ch-00 for ; Fri, 21 Apr 2000 16:09:02 -0400 Original-To: ding@gnus.org X-Face: 0=A/O5-+sE[Tf%X>rYr?Y5LD4,:^'jaJ!4jC&UR*ZrrK2>^`g22Qeb]!:d;}2YJ|Hq"LHdF OX`jWX|AT-WVFQ(TPhFVak)0nt$aEdlOq=1~D,:\z5QlVOrZ2(H,mKg=Xr|'VlHA="r Original-Lines: 75 User-Agent: Gnus/5.0805 (Gnus v5.8.5) XEmacs/21.1 (Bryce Canyon) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:30090 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:30090 --=-=-= While Lars is hacking at gnus, I would like to suggest adding this code which I found in gnu.emacs.sources. I have been using it from my .gnus and have been very happy with it. ;^) --=-=-= Content-Type: message/rfc822 Content-Disposition: inline Path: news2.rdc1.on.home.com!ha2.rdc2.on.home.com!newshub2.home.com!news.home.com!howland.erols.net!fu-berlin.de!uni-berlin.de!pec-21-173.tnt1.h.uunet.DE!not-for-mail From: Ingo Ruhnke Newsgroups: gnu.emacs.sources Subject: gnus-easy-threading.el Date: 30 Mar 2000 01:14:21 +0200 Organization: http://home.pages.de/~grumbel/ Lines: 26 Sender: ingo@grumbel.subdomain.de Message-ID: NNTP-Posting-Host: pec-21-173.tnt1.h.uunet.de (149.225.21.173) Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: fu-berlin.de 954372423 5930430 149.225.21.173 (16 [2345]) Xref: newshub2.home.com gnu.emacs.sources:30001822 Hi, this is just a micro addition to the keybindings. It enables you to browse threads in Gnus with the cursor keys in a IMHO very intuitive way. ;; Set some easier keybindings to make browsing more intuitive (defun my-gnus-summary-show-thread () "Show thread without changing cursor positon." (interactive) (gnus-summary-show-thread) (beginning-of-line) (forward-char 1)) (define-key gnus-summary-mode-map [(right)] 'my-gnus-summary-show-thread) (define-key gnus-summary-mode-map [(left)] 'gnus-summary-hide-thread) (setq gnus-thread-hide-subtree t) ;; EOF ;; -- ICQ: 59461927 http://pingus.seul.org | Ingo Ruhnke http://home.pages.de/~grumbel/ | ------------------------------------------------------------------------' --=-=-= And similar code for topics: From: Dick Knowles Subject: Re: gnus-easy-threading.el Newsgroups: gnu.emacs.sources Date: Fri Mar 31 14:06:13 2000 -0500 Organization: Intermetrics, Inc. Taking my lead from Ingo's threading code, I made some for topic mode: (defun my-gnus-topic-show-topic () "Show the hidden topic." (interactive) (if (gnus-group-topic-p) (gnus-topic-show-topic) (gnus-topic-read-group))) (add-hook 'gnus-started-hook '(lambda () (define-key gnus-topic-mode-map [(right)] 'my-gnus-topic-show-topic) (define-key gnus-topic-mode-map [(left)] 'gnus-topic-hide-topic) )) -- Arcady Genkin http://www.thpoon.com Nostalgia isn't what it used to be. --=-=-=--