[Q] what does this do ??

[Q] what does this do ??

[Didier Verna]

        Hi !

There is a part that I fail to understand in nnml-generate-nov-database-1
(when the group is empty):

      (if (not files)
	  (let* ((group (nnheader-file-to-group
			 (directory-file-name dir) nnml-directory))
		 (info (cadr (assoc group nnml-group-alist))))
	    (when info
	      (setcar info (1+ (cdr info)))))


Can anyone explain the purpose of this ??


Thanks.

-- 
Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier

EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 44 08 01 85
94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 53 14 59 22   didier@xemacs.org

Re: [Q] what does this do ??

[Jesper Harder]

Didier Verna <didier@lrde.epita.fr> writes:

> There is a part that I fail to understand in nnml-generate-nov-database-1
> (when the group is empty):
>
>       (if (not files)
> 	  (let* ((group (nnheader-file-to-group
> 			 (directory-file-name dir) nnml-directory))
> 		 (info (cadr (assoc group nnml-group-alist))))
> 	    (when info
> 	      (setcar info (1+ (cdr info)))))
>
> Can anyone explain the purpose of this ??

As far as I can tell, it does nothing.

Re: [Q] what does this do ??

[Lars Magne Ingebrigtsen]

Didier Verna <didier@lrde.epita.fr> writes:

> There is a part that I fail to understand in nnml-generate-nov-database-1
> (when the group is empty):
>
>       (if (not files)
> 	  (let* ((group (nnheader-file-to-group
> 			 (directory-file-name dir) nnml-directory))
> 		 (info (cadr (assoc group nnml-group-alist))))
> 	    (when info
> 	      (setcar info (1+ (cdr info)))))
>
> Can anyone explain the purpose of this ??

Uhm...  if the group is empty, but there's an entry in the
`nnml-group-alist', then this sets the entry to be `(45 . 44)'.  Which
means "empty".  (The highest number being lower than the highest, if
you get my drift.)

Unless I'm misreading.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen