From 296f3a1156dcc3244b1c0df84adc4dcf021df7c0 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 20 Aug 2021 03:22:04 +0100
Subject: jao-notmuch: also matching messages counts

---
 lib/net/jao-notmuch.el | 41 +++++++++++++++++++----------------------
 1 file changed, 19 insertions(+), 22 deletions(-)

(limited to 'lib/net')

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index 320e898..c7dc1fb 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -238,7 +238,7 @@
                                    (string= (or (plist-get q :query) "")
                                             notmuch-tree-basic-query))
                                  notmuch-saved-searches)))
-                (or (plist-get q :name)  notmuch-tree-basic-query))))))
+                (or (plist-get q :name) notmuch-tree-basic-query))))))
 
 (defun jao-notmuch--looking-at-new-p (&optional p)
   (when-let (ts (if p (plist-get p :tags) (notmuch-show-get-tags)))
@@ -248,7 +248,7 @@
   (plist-get (or msg (notmuch-tree-get-message-properties)) :first))
 
 (defun jao-notmuch--unread-counts (&optional thread)
-  (let ((cnt) (total) (msg))
+  (let ((cnt) (total 0) (match 0) (msg))
     (save-excursion
       (if thread
           (while (and (not (jao-notmuch-tree--first-p))
@@ -258,38 +258,35 @@
                   (or (not cnt)
                       (not thread)
                       (not (jao-notmuch-tree--first-p msg))))
-        (unless cnt (setq cnt 0 total 0))
+        (unless cnt (setq cnt 0))
         (setq total (1+ total))
-        (when (jao-notmuch--looking-at-new-p msg)
-          (setq cnt (1+ cnt)))
+        (when (plist-get msg :match) (setq match (1+ match)))
+        (when (jao-notmuch--looking-at-new-p msg) (setq cnt (1+ cnt)))
         (forward-line 1)))
-    (when cnt (list total cnt))))
+    (when cnt (list total match cnt))))
 
-(defvar jao-notmuch-tree-buffer-name-format "%Q [%N / %T] %n / %t")
+(defvar jao-notmuch-tree-buffer-name-format "%Q [%N / %M] %n / %m")
 
-(defun jao-notmuch-tree--format-name (query total new ttotal tnew)
+(defun jao-notmuch-tree--format-name (query total match new ttotal tmatch tnew)
   (format-spec jao-notmuch-tree-buffer-name-format
-               `((?T . ,total) (?N . ,new) (?Q . ,query)
-                 (?t . ,ttotal) (?n . ,tnew))))
+               `((?Q . ,query) (?T . ,total) (?N . ,new) (?M . ,match)
+                 (?t . ,ttotal) (?n . ,tnew) (?m . ,tmatch))))
 
 (defun jao-notmuch--tree-update-buffer-name ()
   (when-let* ((n (jao-notmuch--unread-counts))
-              (nc (jao-notmuch--unread-counts t))
+              (nc (append n (jao-notmuch--unread-counts t)))
               (q (jao-notmuch--query-name)))
-    (prog1
-        (rename-buffer
-         (apply #'jao-notmuch-tree--format-name q (append n nc)))
+    (prog1 (rename-buffer (apply #'jao-notmuch-tree--format-name q nc))
       (when (fboundp 'jao-minibuffer-refresh) (jao-minibuffer-refresh)))))
 
 (defun jao-notmuch-tree--find-update-buffer-name (&rest _args)
-  (when-let* ((mb (window-buffer notmuch-tree-message-window))
-              (tb (seq-find (lambda (b)
-                              (with-current-buffer b
-                                (and (derived-mode-p 'notmuch-tree-mode)
-                                     (eq notmuch-tree-message-buffer mb)
-                                     b)))
-                            (buffer-list))))
-    (with-current-buffer tb (jao-notmuch--tree-update-buffer-name))))
+  (when-let ((mb (window-buffer notmuch-tree-message-window)))
+    (seq-find (lambda (b)
+                (with-current-buffer b
+                  (and (derived-mode-p 'notmuch-tree-mode)
+                       (eq notmuch-tree-message-buffer mb)
+                       (jao-notmuch--tree-update-buffer-name))))
+              (buffer-list))))
 
 (add-hook 'notmuch-after-tag-hook #'jao-notmuch-tree--find-update-buffer-name)
 
-- 
cgit v1.2.3