From 807e7bbdff9bbe160b9f716c821ab13328a9f083 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 7 Sep 2021 14:50:54 +0100
Subject: notmuch little things

---
 notmuch.org | 37 ++++++++++++++++++++++++-------------
 1 file changed, 24 insertions(+), 13 deletions(-)

(limited to 'notmuch.org')

diff --git a/notmuch.org b/notmuch.org
index 98528e6..0ca72f5 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -155,7 +155,8 @@
 
       :bind (:map notmuch-common-keymap
              (("E" . jao-notmuch-open-enclosure)
-              ("B" . jao-notmuch-browse-urls))
+              ("B" . notmuch-show-resend-message)
+              ("b" . jao-notmuch-browse-urls))
              :filter (eq 'notmuch jao-afio-mail-function)
              :map message-mode-map
              (("C-c C-d" . notmuch-draft-postpone))))
@@ -241,15 +242,16 @@
                     "The Conversation – Articles (UK): ")))
 
     (defun jao-mail-clean-address (fun address)
-      (let ((address
-             (if (string-match ".+ updates on arXiv.org: \\(.+\\)" address)
-                 (with-temp-buffer
-                   (insert (match-string 1 address))
-                   (let ((shr-width 1000))
-                     (shr-render-region (point-min) (point-max)))
-                   (replace-regexp-in-string "\"" "" (buffer-string)))
-               (replace-regexp-in-string jao-mail-clean-rx "" address))))
-        (funcall fun address)))
+      (when address
+        (let ((address
+               (if (string-match ".+ updates on arXiv.org: \\(.+\\)" address)
+                   (with-temp-buffer
+                     (insert (match-string 1 address))
+                     (let ((shr-width 1000))
+                       (shr-render-region (point-min) (point-max)))
+                     (replace-regexp-in-string "\"" "" (buffer-string)))
+                 (replace-regexp-in-string jao-mail-clean-rx "" address))))
+          (funcall fun address))))
 
     (defun jao-notmuch-show-setup () (setq header-line-format nil))
 
@@ -285,7 +287,7 @@
                   '(("date" . "%12s ")
                     ("count" . "%-7s ")
                     ("authors" . "%-35s")
-                    ("subject" . "%-100s")
+                    ("subject" . " %-100s")
                     ("tags" . "(%s)")))
       :bind (:map notmuch-search-mode-map
              (("RET" . notmuch-tree-from-search-thread)
@@ -319,7 +321,13 @@
               (jao-notmuch--msg-ticks)
               (jao-notmuch--tree-subject)
               ("tags" . "  (%s)"))
-            notmuch-unthreaded-result-format notmuch-tree-result-format
+            notmuch-unthreaded-result-format notmuch-search-result-format
+            consult-notmuch-result-format
+            '((jao-notmuch--msg-ticks)
+              ("date" . "%12s  ")
+              ("authors" . "%-35s")
+              ("subject" . " %-100s")
+              ("tags" . "  (%s)"))
             notmuch-tree-thread-symbols
             '((prefix . "─") (top . "─") (top-tee . "┬")
               (vertical . "│") (vertical-tee . "├") (bottom . "╰")
@@ -335,7 +343,8 @@
       (jao-notmuch-tree-setup "T")
 
       :bind (:map notmuch-tree-mode-map
-             (("C" . jao-notmuch-echo-count)
+             (("b" . jao-notmuch-browse-urls)
+              ("C" . jao-notmuch-echo-count)
               ("d" . jao-notmuch-tree-delete-message)
               ("D" . jao-notmuch-tree-delete-thread)
               ("h" . jao-notmuch-goto-message-buffer)
@@ -349,6 +358,8 @@
               ("o" . jao-notmuch-tree-widen-search)
               ("p" . jao-notmuch-tree-previous)
               ("P" . jao-notmuch-tree-previous-thread)
+              ("r" . notmuch-tree-reply)
+              ("R" . notmuch-tree-reply-sender)
               ("s" . jao-notmuch-tree-spam)
               ("u" . jao-notmuch-tree-flag)
               ("v" . notmuch-tree-scroll-message-window)
-- 
cgit v1.2.3