Gnus development mailing list
 help / color / mirror / Atom feed
From: Bill White <billw@wolfram.com>
Subject: Re: the gnus-newsgroup-unseen mark is too sticky
Date: Thu, 28 Feb 2002 06:35:02 -0600	[thread overview]
Message-ID: <a5l6qu$nes$1@quimby2.netfonds.no> (raw)
In-Reply-To: <m3adtuizsy.fsf@wolfram.com> (Bill White's message of "Wed, 27 Feb 2002 11:45:33 -0600")

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."




  parent reply	other threads:[~2002-02-28 12:35 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-02-26 14:02 Bill White
2002-02-26 16:53 ` Harry Putnam
2002-02-27  4:31   ` Bill White
2002-02-27  4:31   ` Bill White
2002-02-27  6:15     ` Harry Putnam
2002-02-27  6:15     ` Harry Putnam
2002-02-26 16:53 ` Harry Putnam
2002-02-26 18:17 ` Simon Josefsson
2002-02-27 16:46   ` Bill White
2002-02-27 16:46   ` Bill White
2002-02-27 17:45     ` Bill White
2002-02-28 12:35       ` Bill White
2002-02-28 12:35       ` Bill White [this message]
2002-02-27 17:45     ` Bill White
2002-02-26 18:17 ` Simon Josefsson
2002-02-26 14:02 Bill White

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='a5l6qu$nes$1@quimby2.netfonds.no' \
    --to=billw@wolfram.com \
    /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).