From: David C Worenklein <dcw@gcm.com>
Cc: ding@ifi.uio.no
Subject: Re: Lots of Topics
Date: Tue, 19 Mar 96 14:38:44 -0500 [thread overview]
Message-ID: <9603191938.AA27343@mis_bo9.it.gcm.com> (raw)
In-Reply-To: David C Worenklein's message of Tue, 19 Mar 96 11:47:29 -0500
> > From: John Griffith <griffith@sfs.nphil.uni-tuebingen.de>
> >
> > 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))
next prev parent reply other threads:[~1996-03-19 19:38 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-03-19 13:46 John Griffith
1996-03-19 16:47 ` David C Worenklein
1996-03-19 19:38 ` David C Worenklein [this message]
1996-03-19 20:55 ` Lars Magne Ingebrigtsen
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=9603191938.AA27343@mis_bo9.it.gcm.com \
--to=dcw@gcm.com \
--cc=ding@ifi.uio.no \
/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).