From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/43339
Path: main.gmane.org!not-for-mail
From: Bill White <billw@wolfram.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: the gnus-newsgroup-unseen mark is too sticky
Date: Thu, 28 Feb 2002 06:35:02 -0600
Sender: owner-ding@hpc.uh.edu
Message-ID: <ruo4rk1lr7t.fsf@billwlx.wolfram.com>
References: <ruod6ysnxxn.fsf@billwlx.wolfram.com>
	<ilu8z9gw1jd.fsf@extundo.com> <m3k7sy50vl.fsf@wolfram.com>
	<m3adtuizsy.fsf@wolfram.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035178448 17077 80.91.224.250 (21 Oct 2002 05:34:08 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 05:34:08 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 29988 invoked from network); 28 Feb 2002 12:07:27 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 28 Feb 2002 12:07:27 -0000
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 16gPIy-0003oB-00; Thu, 28 Feb 2002 06:05:00 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 28 Feb 2002 06:05:01 -0600 (CST)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id GAA00414
	for <ding@hpc.uh.edu>; Thu, 28 Feb 2002 06:04:49 -0600 (CST)
Original-Received: (qmail 29952 invoked by alias); 28 Feb 2002 12:04:41 -0000
Original-Received: (qmail 29947 invoked from network); 28 Feb 2002 12:04:41 -0000
Original-Received: from wri-dns0.wolfram.com (HELO wolfram.com) (140.177.205.10)
  by gnus.org with SMTP; 28 Feb 2002 12:04:41 -0000
Original-Received: from billwlx.wolfram.com.wolfram.com (dmz5.wolfram.com [140.177.205.1])
	by wolfram.com (8.11.2/8.11.2) with ESMTP id g1SC4dL07746
	for <ding@gnus.org>; Thu, 28 Feb 2002 06:04:39 -0600
Original-To: ding <ding@gnus.org>
X-Face: $f^q=3W-VRc;w9na5Y.c-Jvu)M";y1O184tHjf@PP26MzCi.}7S^GP;QlJ$A3.PH|-`aQZ!
 d,*2d|f2z"9y%}r'$nhAO(9h`dv>,Mp\H6jf8AbuG>EZ,{u:cksL#NwCBoF<\;{QO+p32'(1*r"f-l
 baaB}uoEkv(o864LM@sH
X-Liturgical-Date: Weekday: Thursday of the Second Week of Lent
In-Reply-To: <m3adtuizsy.fsf@wolfram.com> (Bill White's message of "Wed, 27
 Feb 2002 11:45:33 -0600")
Original-Lines: 29
User-Agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.2.50
 (i586-pc-linux-gnu)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:43339
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:43339

On Wed Feb 27 2002 at 11:45, Bill White <billw@wolfram.com> said:

> This handles the re-highlighting after I do something that *selects*
> the article:
>
> ----------------------------------------------------------------------
> (defun my-remove-article-from-unseen ()
>   (setq gnus-newsgroup-unseen 
> 	(delq article gnus-newsgroup-unseen)))
>
> (add-hook 'gnus-mark-article-hook 'my-remove-article-from-unseen)
> ----------------------------------------------------------------------

But this also removes the unseen mark, and does things the right way:

(defun my-remove-article-from-unseen ()
  (setq gnus-newsgroup-unseen 
	(delq gnus-current-article gnus-newsgroup-unseen))
  (gnus-summary-update-secondary-mark gnus-current-article))

(add-hook 'gnus-mark-article-hook 'my-remove-article-from-unseen)


Cheers -

bw
-- 
Bill White . billw@wolfram.com . http://members.wri.com/billw
"No ma'am, we're musicians."