From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/5602 Path: main.gmane.org!not-for-mail From: David C Worenklein Newsgroups: gmane.emacs.gnus.general Subject: Re: Lots of Topics Date: Tue, 19 Mar 96 14:38:44 -0500 Message-ID: <9603191938.AA27343@mis_bo9.it.gcm.com> References: <199603191346.OAA18250@filippo.sfs.nphil.uni-tuebingen.de> <9603191647.AA26670@mis_bo9.it.gcm.com> NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035146182 824 80.91.224.250 (20 Oct 2002 20:36:22 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:36:22 +0000 (UTC) Cc: ding@ifi.uio.no Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.3/8.6.9) with SMTP id MAA29946 for ; Tue, 19 Mar 1996 12:16:16 -0800 Original-Received: from gcm.com (gcm.com [146.121.48.2]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Tue, 19 Mar 1996 20:38:53 +0100 Original-Received: (from uucp@localhost) by gcm.com (8.6.9/8.6.9) with UUCP id OAA20130; Tue, 19 Mar 1996 14:41:04 -0500 Original-Received: from mis_bo9.it.gcm.com by gcm.com (4.1/GCM-2.0m) id AA00103; Tue, 19 Mar 96 14:38:45 EST Original-Received: by mis_bo9.it.gcm.com (4.1/SMI-4.1) id AA27343; Tue, 19 Mar 96 14:38:45 EST In-Reply-To: David C Worenklein's message of Tue, 19 Mar 96 11:47:29 -0500 Original-To: John Griffith Gcc: nnfolder+archive:misc-mail Xref: main.gmane.org gmane.emacs.gnus.general:5602 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:5602 > > From: John Griffith > > > > I have a couple requests related to topic hierarchies. > > > > 1) I would like an option to only show topics if there is something > > unread-ish in it. > > Here's a crude patch (to 0.54) A little to crude. Let me try again. *** gnus-topic.new Tue Mar 19 12:12:10 1996 --- gnus-topic.el Mon Mar 18 09:05:55 1996 *************** *** 153,163 **** (make-string (* gnus-topic-indent-level level) ? )) (beg (progn (beginning-of-line) (point))) (topic (reverse topic)) (all-entries entries) (unread 0) ! info entry end real-end active) ;; Insert any sub-topics. (while topic (incf unread (gnus-topic-prepare-topic (pop topic) (1+ level) list-level all --- 153,163 ---- (make-string (* gnus-topic-indent-level level) ? )) (beg (progn (beginning-of-line) (point))) (topic (reverse topic)) (all-entries entries) (unread 0) ! info entry end active) ;; Insert any sub-topics. (while topic (incf unread (gnus-topic-prepare-topic (pop topic) (1+ level) list-level all *************** *** 183,196 **** (numberp (car entry)) (not (member (gnus-info-group (setq info (nth 2 entry))) gnus-topic-tallied-groups))) (push (gnus-info-group info) gnus-topic-tallied-groups) (incf unread (car entry)))) - (setq real-end (point)) (goto-char beg) ;; Insert the topic line. ! (unless (or silent (= beg real-end)) (gnus-extent-start-open (point)) (gnus-topic-insert-topic-line (car type) visiblep (not (eq (nth 2 type) 'hidden)) level all-entries unread)) --- 183,195 ---- (numberp (car entry)) (not (member (gnus-info-group (setq info (nth 2 entry))) gnus-topic-tallied-groups))) (push (gnus-info-group info) gnus-topic-tallied-groups) (incf unread (car entry)))) (goto-char beg) ;; Insert the topic line. ! (unless silent (gnus-extent-start-open (point)) (gnus-topic-insert-topic-line (car type) visiblep (not (eq (nth 2 type) 'hidden)) level all-entries unread))