diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-08 20:08:59 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-10 18:25:55 -0700 |
commit | eebc51bc02ad59fd22160c6841e570e3bddb9135 (patch) | |
tree | e4ea2b2282752c13d0639cfc6832be312721ce44 | |
parent | a4952c168f07e50c4a2fbc8366bc912c06409728 (diff) | |
download | dotfiles-eebc51bc02ad59fd22160c6841e570e3bddb9135.tar.gz |
spw/next-unread-group: don't pass nil to notmuch-saved-search-count
-rw-r--r-- | .emacs.d/notmuch-config.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/.emacs.d/notmuch-config.el b/.emacs.d/notmuch-config.el index ac264328..8afac420 100644 --- a/.emacs.d/notmuch-config.el +++ b/.emacs.d/notmuch-config.el @@ -528,13 +528,14 @@ scroll through them." (if (or (and already-looking (not queries)) (not (setq remaining (cl-loop with queries - = (or queries spw/lists-browse-searches) - if (zerop - (string-to-number - (notmuch-saved-search-count - (plist-get - (plist-get (car queries) :search) - :query)))) + = (or queries spw/lists-browse-searches) + if (and queries + (zerop + (string-to-number + (notmuch-saved-search-count + (plist-get + (plist-get (car queries) :search) + :query))))) do (pop queries) else return queries)))) (set-transient-map (let ((map (make-sparse-keymap))) |