Fix invalid function after compilation.

This commit is contained in:
Vincent Zhang 2020-01-06 12:31:58 +08:00
parent 95c6bd16d9
commit e3dcc83738

View file

@ -2091,9 +2091,8 @@ mouse-1: Toggle Debug on Quit"
(let ((total-unread-news-number 0))
(mapc (lambda (g)
(let* ((group (car g))
;; `gnus-group-unread' is a macro while not a function
(unread (and (bound-and-true-p gnus-group-unread)
(funcall gnus-group-unread group))))
(unread (and (functionp 'gnus-group-unread) ; it's macro
(gnus-group-unread "group"))))
(when (and (numberp unread)
(> unread 0))
(setq total-unread-news-number (+ total-unread-news-number unread)))))