Re: Gnus registry woes

["Ted Zlatanov" <tzz@lifelogs.com>]

On Tue, 29 Jun 2004, viteno@xemacs.org wrote:

> I've had a go at the registry today.  Now, I'm no longer able to save
> my Gnus buffers.  I get the following error:
> 
> Signaling: (wrong-type-argument natnump -2497)
>   gnus-registry-trim((("<20040629090742.GE74930@atrbg11.informatik.tu-muenchen.de>"
>   	(...) "nnml:bsd-current")
>   	("<1152675CA9EDD71187130002B3CE5ADA090BA9F4@hoexc010.ukrtelecom.net>"
>   	(...) "nnml:bsd-current") ("<87n02msp6d.fsf@free.fr>" (...)
>   	"nnml:lilypond")))
>   gnus-registry-save()
>   run-hooks(gnus-registry-save)
>   apply(run-hooks gnus-registry-save)
>   gnus-run-hooks(gnus-save-newsrc-hook)
>   gnus-save-newsrc-file(nil)
>   gnus-group-save-newsrc(nil)
>   call-interactively(gnus-group-save-newsrc)

Here's the function in question:

(defun gnus-registry-trim (alist)
  "Trim alist to size, using gnus-registry-max-entries."
  (if (null gnus-registry-max-entries)
      alist				; just return the alist
    ;; else, when given max-entries, trim the alist
    (let ((timehash (make-hash-table 			    
		     :size 4096
		     :test 'equal)))
      (maphash
       (lambd a(key value)
	 (puthash key (gnus-registry-fetch-extra key 'mtime) timehash))
       gnus-registry-hashtb)

      ;; we use the return value of this setq, which is the trimmed alist
      (setq alist
	    (nthcdr
	     (- (length alist) gnus-registry-max-entries)
	     (sort alist 
		   (lambda (a b)
		     (time-less-p 
		      (cdr (gethash (car a) timehash))
		      (cdr (gethash (car b) timehash))))))))))

So basically we sort the alist and then take only the needed number
of entries from it.

I would guess the natnump error, which I have never seen before, is
coming from an invalid mtime.  Can you trace the error deeper with
(debug) statements inside the lambda function above?  Alternatively,
can you send me your registry file, if the error is repeatable from
it?

Thanks
Ted