--- c/gnus-notify.el 2010-12-25 04:29:14.390610600 +0100 +++ d/gnus-notify.el 2010-12-25 04:35:41.004238410 +0100 @@ -108,18 +108,18 @@ (defun gnus-notify-check (&rest ignored) (interactive) - (let ( (updated-groups '()) ) + (let ((updated-groups '())) (dolist (g gnus-newsrc-alist) - (let ( (read (or + (let ((read (or (and (listp (car (gnus-info-read g))) (cdar (gnus-info-read g))) - (cdr (gnus-info-read g)))) ) + (cdr (gnus-info-read g))))) (when read - (let* ( (name (gnus-info-group g)) + (let* ((name (gnus-info-group g)) (unread (gnus-group-unread (car g))) (count (+ read unread)) (old-count (cdr (assoc name gnus-notify-counts))) - (notify (gnus-group-find-parameter name 'group-notify)) ) + (notify (gnus-group-find-parameter name 'group-notify))) (when (or (and (eq gnus-notify-mode 'gnus-notify-all-except) (not notify)) (and (eq gnus-notify-mode 'gnus-notify-explicit) notify))