gnus-group-number-of-unread-mail

Bonjour,

J'ai pompé la fonction gnus-group-number-of-unread-mail à l'adresse :
http://www-verimag.imag.fr/~moy/emacs/.gnus.el

8<8<8<8<8<8<8<8<8<
(defun gnus-group-number-of-unread-mail (level)
"*Returns the number of unread mails in groups of subscription level LEVEL and below."
(let ((num-of-unread 0)
(newsrc (cdr gnus-newsrc-alist))
info clevel)
(while newsrc
(setq info (car newsrc)
clevel (gnus-info-level info))
(when (<= clevel level)
(setq num-of-unread
(+ num-of-unread (car (gnus-gethash (gnus-info-group info) gnus-newsrc-hashtb)))))
(setq newsrc (cdr newsrc)))
num-of-unread))
8<8<8<8<8<8<8<8<8<

mais Alt-: (gnus-group-number-of-unread-mail 2) dans le buffer Group
donne le Backtrace suivant :

8<8<8<8<8<8<8<8<8<
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p t)
+(1 t)
(setq num-of-unread (+ num-of-unread (car )))
(progn (setq num-of-unread (+ num-of-unread )))
(if (<= clevel level) (progn (setq num-of-unread )))
(when (<= clevel level) (setq num-of-unread (+ num-of-unread )))
(while newsrc (setq info (car newsrc) clevel (gnus-info-level info)) (when (<= clevel level) (setq num-of-unread )) (setq newsrc (cdr newsrc)))
(let ((num-of-unread 0) (newsrc )) (while newsrc (setq info clevel ) (when ) (setq newsrc )) num-of-unread)
gnus-group-number-of-unread-mail(2)
eval((gnus-group-number-of-unread-mail 2))
eval-expression((gnus-group-number-of-unread-mail 2) nil)
call-interactively(eval-expression)
recursive-edit()
byte-code("Æ!ˆÇ ˆÈ !ˆƒ?Éed\"Vƒ4ebˆÊ¥yˆ`dbˆÊ¥Zyˆ\f`|ˆ)ËcˆebˆÌÍ !ˆÎ ˆ @Ï=ƒKÐÑÒ\"ˆÓ ˆÌÔ!ˆÒÕÒÌÔ!ˆŠÖ ˆ,Շ" [debugger-buffer debugger-args noninteractive debugger-batch-max-lines middlestart buffer-read-only pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "" message buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-output inhibit-trace] 3)
debug(error (wrong-type-argument number-or-marker-p t))
+(0 t)
(setq num-of-unread (+ num-of-unread (car )))
(progn (setq num-of-unread (+ num-of-unread )))
(if (<= clevel level) (progn (setq num-of-unread )))
(when (<= clevel level) (setq num-of-unread (+ num-of-unread )))
(while newsrc (setq info (car newsrc) clevel (gnus-info-level info)) (when (<= clevel level) (setq num-of-unread )) (setq newsrc (cdr newsrc)))
(let ((num-of-unread 0) (newsrc )) (while newsrc (setq info clevel ) (when ) (setq newsrc )) num-of-unread)
gnus-group-number-of-unread-mail(2)
eval((gnus-group-number-of-unread-mail 2))
eval-expression((gnus-group-number-of-unread-mail 2) nil)
call-interactively(eval-expression)
recursive-edit()
byte-code("Æ!ˆÇ ˆÈ !ˆƒ?Éed\"Vƒ4ebˆÊ¥yˆ`dbˆÊ¥Zyˆ\f`|ˆ)ËcˆebˆÌÍ !ˆÎ ˆ @Ï=ƒKÐÑÒ\"ˆÓ ˆÌÔ!ˆÒÕÒÌÔ!ˆŠÖ ˆ,Շ" [debugger-buffer debugger-args noninteractive debugger-batch-max-lines middlestart buffer-read-only pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "" message buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-output inhibit-trace] 3)
debug(error (wrong-type-argument number-or-marker-p t))
+(0 t)
(setq num-of-unread (+ num-of-unread (car )))
(progn (setq num-of-unread (+ num-of-unread )))
(if (<= clevel level) (progn (setq num-of-unread )))
(when (<= clevel level) (setq num-of-unread (+ num-of-unread )))
(while newsrc (setq info (car newsrc) clevel (gnus-info-level info)) (when (<= clevel level) (setq num-of-unread )) (setq newsrc (cdr newsrc)))
(let ((num-of-unread 0) (newsrc )) (while newsrc (setq info clevel ) (when ) (setq newsrc )) num-of-unread)
gnus-group-number-of-unread-mail(2)
eval((gnus-group-number-of-unread-mail 2))
eval-expression((gnus-group-number-of-unread-mail 2) nil)
call-interactively(eval-expression)
recursive-edit()
byte-code("Æ!ˆÇ ˆÈ !ˆƒ?Éed\"Vƒ4ebˆÊ¥yˆ`dbˆÊ¥Zyˆ\f`|ˆ)ËcˆebˆÌÍ !ˆÎ ˆ @Ï=ƒKÐÑÒ\"ˆÓ ˆÌÔ!ˆÒÕÒÌÔ!ˆŠÖ ˆ,Շ" [debugger-buffer debugger-args noninteractive debugger-batch-max-lines middlestart buffer-read-only pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "" message buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-output inhibit-trace] 3)
debug(error (wrong-type-argument number-or-marker-p t))
+(0 t)
(setq num-of-unread (+ num-of-unread (car )))
(progn (setq num-of-unread (+ num-of-unread )))
(if (<= clevel level) (progn (setq num-of-unread )))
(when (<= clevel level) (setq num-of-unread (+ num-of-unread )))
(while newsrc (setq info (car newsrc) clevel (gnus-info-level info)) (when (<= clevel level) (setq num-of-unread )) (setq newsrc (cdr newsrc)))
(let ((num-of-unread 0) (newsrc ) info clevel) (while newsrc (setq info clevel ) (when ) (setq newsrc )) num-of-unread)
gnus-group-number-of-unread-mail(2)
eval((gnus-group-number-of-unread-mail 2))
eval-expression((gnus-group-number-of-unread-mail 2) nil)
call-interactively(eval-expression)
8<8<8<8<8<8<8<8<8<

Il me semble pourtant que cette fonction a déjà fonctionné chez moi
Comment récupérer le nombre de messages non lus ou le nombre de nouveaux
messages de niveau x? (Gnus v5.10.6)

Merci de votre aide.

--
Philippe.