Re: Lots of Topics

[David C Worenklein <dcw@gcm.com>]

In article <199603191346.OAA18250@filippo.sfs.nphil.uni-tuebingen.de> John Griffith <griffith@sfs.nphil.uni-tuebingen.de> writes:

> From: John Griffith <griffith@sfs.nphil.uni-tuebingen.de>
> Cc: griffith@sfs.nphil.uni-tuebingen.de
> Date: Tue, 19 Mar 1996 14:46:19 +0100
> X-From-Line: ding-request@ifi.uio.no  Tue Mar 19 10:42:29 1996
> 
> 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.
> 
>    Ie. 
> 
>    Topic0
>      Topic1
>        group1
>      Topic2
>      Topic3
>        group2
> 
>    Do not show Topic2 here since there is nothing in it.  This could
>    really cut out uninteresting screen clutter.  Of course this also
>    requires a way to show all topics even if there isn't anything in
>    them.

Here's a crude patch (to 0.54)

*** gnus-topic.el       Mon Mar 18 09:05:55 1996
--- gnus-topic.new      Tue Mar 19 11:45:45 1996
***************
*** 185,195 ****
                              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))
--- 185,196 ----
                              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 (or silent
!                 (= (point) (point-max)))
        (gnus-extent-start-open (point))
        (gnus-topic-insert-topic-line 
         (car type) visiblep
         (not (eq (nth 2 type) 'hidden))
         level all-entries unread))