diff options
Diffstat (limited to 'lisp/+tab-bar.el')
| -rw-r--r-- | lisp/+tab-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
| diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index 5d018b5..1f4745d 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el | |||
| @@ -52,7 +52,8 @@ | |||
| 52 | 52 | ||
| 53 | (defun +tab-bar-notmuch-count () | 53 | (defun +tab-bar-notmuch-count () |
| 54 | "Display a notmuch count in the tab-bar." | 54 | "Display a notmuch count in the tab-bar." |
| 55 | (when (featurep 'notmuch) | 55 | (when (and (executable-find "notmuch") |
| 56 | (featurep 'notmuch)) | ||
| 56 | (let* ((counts (ignore-errors (notmuch-hello-query-counts notmuch-saved-searches))) | 57 | (let* ((counts (ignore-errors (notmuch-hello-query-counts notmuch-saved-searches))) |
| 57 | (next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal)) | 58 | (next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal)) |
| 58 | (next-count (plist-get next :count))) | 59 | (next-count (plist-get next :count))) |