summaryrefslogtreecommitdiffhomepage
path: root/lib/net
diff options
context:
space:
mode:
Diffstat (limited to 'lib/net')
-rw-r--r--lib/net/jao-notmuch.el19
1 files changed, 9 insertions, 10 deletions
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."