Automatic ticking of mail articles

Automatic ticking of mail articles

[Kees de Bruin]

Hello ding-folks!

I'm currently switching from my old mail reader to using September Gnus as
default mail reader. However, I have some problems with the status of the
articles I have read. I have two different situations:

1. The mailgroup defines a mailing list. This means that all articles
   should be marked as expired. This is handled correctly by sgnus when the
   `gnus-auto-expirable-newsgroups' variable is set correctly.

2. For all other mailgroups I would like to have the article ticked when I
   read the article, but also when I do a catchup of the group.

Could somebody tell me how this can be done?

Kees.

-- 
| | __   .-. .-.    Kees de Bruin        Tasking Software BV   B  O S T O  N
| |/ /  _| | | |_                                              -------------
|   (  / _ | | _ \  bruin@tasking.nl       +31-33-4 55 85 84   S Y S T E M S
|_|\_\ \___| |___/                    fax: +31-33-4 55 00 33   -------------
                                                               O  F F I C  E
A jury consists of 12 persons chosen to decide who has the     -----###-----
better lawyer                                -- Robert Frost   T A S K I N G

Re: Automatic ticking of mail articles

[Kai Grossjohann]

>>>>> On 22 Jan 1996 14:41:02 +0100, Kees de Bruin <bruin@tasking.nl>
>>>>> said:

  Kees> 2. For all other mailgroups I would like to have the article
  Kees>    ticked when I read the article, but also when I do a
  Kees>    catchup of the group.

Here's what I have.  You need to customize it a bit, though.  I'm sure
you'll see what it does.  

(defun kai-gnus-mark-article-hook ()
  (if (and (not (or (memq gnus-current-article gnus-newsgroup-marked)
		    (memq gnus-current-article gnus-newsgroup-dormant)
		    (memq gnus-current-article gnus-newsgroup-expirable)
		    (memq gnus-current-article gnus-newsgroup-ancient))))
           (if (string-match "^nnml:" gnus-newsgroup-name)
               (if (string-match "^nnml:auto" gnus-newsgroup-name)
                   (gnus-summary-mark-unread-as-read)
                 (gnus-summary-tick-article))
             (gnus-summary-mark-unread-as-read))))

You need to add this function to gnus-mark-article-hook.

gnus-summary-mark-unread-as-read is what Gnus does by default with an
article you haven't seen yet, so it should do the expirable stuff,
too.  But I don't use auto-expire, so I don't know for sure.

hth,
        kai
--
Life is hard and then you die.