From a9f0f89c2496f631978dcb6c88da70a11ca1ab78 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 19 Aug 2021 01:47:38 +0100 Subject: jao-notmuch: little tweaks --- lib/net/jao-notmuch.el | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'lib/net') diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 1bfabf6..6b88e80 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -245,19 +245,19 @@ (or (member "unread" ts) (member "new" ts)))) (defun jao-notmuch--unread-count () - (save-excursion - (goto-char (point-min)) - (let ((p) (cnt) (total)) + (let ((p) (cnt) (total)) + (save-excursion + (goto-char (point-min)) (while (setq p (text-property-search-forward :notmuch-message-properties)) (unless cnt (setq cnt 0 total 0)) (setq total (1+ total)) (when (jao-notmuch--looking-at-new-p (prop-match-value p)) - (setq cnt (1+ cnt)))) - (when cnt (format "%s / %s messages" cnt total))))) + (setq cnt (1+ cnt))))) + (when cnt (format "[%s] %s left" total cnt)))) (defun jao-notmuch--tree-update-buffer-name (&optional n) (when-let ((n (or n (jao-notmuch--unread-count)))) - (rename-buffer (format "%s - %s" (jao-notmuch--query-name) n)) + (rename-buffer (format "%s %s" (jao-notmuch--query-name) n)) (jao-minibuffer-refresh))) (defun jao-notmuch--tree-sentinel (proc &rest _) @@ -294,7 +294,7 @@ (when and-show (notmuch-tree-show-message nil))) (defun jao-notmuch-tree--next (prev thread no-exit) - (let ((line-move-ignore-invisible t)) + (let ((line-move-ignore-invisible nil)) (cond ((jao-notmuch--looking-at-new-p)) (thread (when (notmuch-tree-next-thread prev) @@ -303,8 +303,7 @@ ((notmuch-tree-get-message-id) (notmuch-tree-matching-message prev (not no-exit))))) (when (notmuch-tree-get-message-id) - (jao-notmuch-tree-hide-others) - (notmuch-tree-show-message nil)) + (jao-notmuch-tree-hide-others t)) (jao-notmuch--tree-update-buffer-name)) (defvar jao-notmuch-tree--prefix-map @@ -342,7 +341,7 @@ (defun jao-notmuch--tree-sentinel (proc &rest _) (when (eq (process-status proc) 'exit) (jao-notmuch--tree-update-buffer-name) - (jao-notmuch-tree-hide-others t))) + (jao-notmuch-tree-hide-others))) (defun jao-notmuch-tree-setup (&optional prefix) "Set up display of trees, with PREFIX key for outline commands." -- cgit v1.2.3