summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-04-02 13:54:33 -0500
committerCase Duckworth2022-04-02 13:54:43 -0500
commit1d64079a52373de04bc213c837c3ef1127d19f77 (patch)
tree3c9c9c59d6395405da42c73fe1c0f3ae86978670
parentAdd +org-unsmartify (diff)
downloademacs-1d64079a52373de04bc213c837c3ef1127d19f77.tar.gz
emacs-1d64079a52373de04bc213c837c3ef1127d19f77.zip
Ignore errors in +tab-bar-notmuch-count
-rw-r--r--lisp/+tab-bar.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index e328146..5d018b5 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el
@@ -53,7 +53,7 @@
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 (featurep 'notmuch)
56 (let* ((counts (notmuch-hello-query-counts notmuch-saved-searches)) 56 (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)) 57 (next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal))
58 (next-count (plist-get next :count))) 58 (next-count (plist-get next :count)))
59 (when (and next-count (> next-count 0)) 59 (when (and next-count (> next-count 0))