hiro/doom-modeline
1
0
Fork 0
mirror of https://github.com/vale981/doom-modeline synced 2025-03-06 01:31:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix invalid function after compilation.

Browse source
This commit is contained in:
Vincent Zhang 2020-01-06 12:31:58 +08:00
parent 95c6bd16d9
commit e3dcc83738
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doom-modeline-segments.el
View file

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