From e3dcc8373886e0800038478eb412c5992a005eb3 Mon Sep 17 00:00:00 2001 From: Vincent Zhang Date: Mon, 6 Jan 2020 12:31:58 +0800 Subject: [PATCH] Fix invalid function after compilation. --- doom-modeline-segments.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/doom-modeline-segments.el b/doom-modeline-segments.el index 58d4bae..1c7a295 100644 --- a/doom-modeline-segments.el +++ b/doom-modeline-segments.el @@ -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)))))