Re: New mail appears to be old?!

[Simon Josefsson <jas@extundo.com>]

Karl Eichwalder <keichwa@gmx.net> writes:

>> in the CVS version of GNUS I suddenly experience a rather unwanted and
>> annoying phenomenon: after getting new mail, only some part of the new
>> mail is marked as new/unread and makes the groups show up in the group
>> buffer as groups with new mail. 
>
> Happened to me, too (I don't use nndiary).  To cure the problem I moved
> all article to a temp group, remove the old one and copied back the
> article from the temp group.

Does it make the problem go away permanently for the group, or just
temporarily until it happens again?  If you M-g the group, and `G E'
the group, does the active range (third entry) match the high/low
article count in the group?  Is the active info ok?  (I.e. does M-x
nnml-generate-nov-databases RET solve it?)

> I've some other mail groups where the '.' mark never goes away.  

How do the `seen' mark list in `G E' look like?  Does the patch below
help?  (I wouldn't think so, but maybe.)

> Is it possible to restrict the '.' mark to news groups only?

I don't think so.. Lars?

Index: nnml.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnml.el,v
retrieving revision 6.27
diff -u -w -r6.27 nnml.el
--- nnml.el	2001/09/24 17:35:21	6.27
+++ nnml.el	2001/09/30 11:21:22
@@ -952,13 +952,14 @@
     (nnml-open-marks group server)
     ;; Update info using `nnml-marks'.
     (mapcar (lambda (pred)
+	      (unless (gnus-article-unpropagatable-p (cdr pred))
 	      (gnus-info-set-marks
 	       info
 	       (gnus-update-alist-soft
 		(cdr pred)
 		(cdr (assq (cdr pred) nnml-marks))
 		(gnus-info-marks info))
-	       t))
+		 t)))
 	    gnus-article-mark-lists)
     (let ((seen (cdr (assq 'read nnml-marks))))
       (gnus-info-set-read info
Index: nnfolder.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnfolder.el,v
retrieving revision 6.23
diff -u -w -r6.23 nnfolder.el
--- nnfolder.el	2001/09/24 17:35:21	6.23
+++ nnfolder.el	2001/09/30 11:21:22
@@ -1176,13 +1176,14 @@
     (nnfolder-open-marks group server)
     ;; Update info using `nnfolder-marks'.
     (mapcar (lambda (pred)
+	      (unless (gnus-article-unpropagatable-p (cdr pred))
 	      (gnus-info-set-marks
 	       info
 	       (gnus-update-alist-soft
 		(cdr pred)
 		(cdr (assq (cdr pred) nnfolder-marks))
 		(gnus-info-marks info))
-	       t))
+		 t)))
 	    gnus-article-mark-lists)
     (let ((seen (cdr (assq 'read nnfolder-marks))))
       (gnus-info-set-read info