summaryrefslogtreecommitdiffhomepage
path: root/email.org
diff options
context:
space:
mode:
Diffstat (limited to 'email.org')
-rw-r--r--email.org13
1 files changed, 8 insertions, 5 deletions
diff --git a/email.org b/email.org
index d4ccc45..2017105 100644
--- a/email.org
+++ b/email.org
@@ -384,13 +384,16 @@
(when (eq 'notmuch jao-afio-mail-function)
(setq mm-text-html-renderer 'shr))
+ (defun jao-notmuch-refresh-agenda ()
+ (interactive)
+ (save-window-excursion (org-agenda-list)))
+
(defun jao-notmuch-refresh-hello ()
(interactive)
(when (derived-mode-p 'notmuch-hello-mode)
(when (not (string-blank-p jao-notmuch-minibuffer-string))
- (notmuch-hello))
+ (let ((notmuch-hello-auto-refresh nil)) (notmuch-hello)))
(let ((inhibit-message t))
- (save-window-excursion (org-agenda-list))
(beginning-of-buffer)
(widget-forward 2))))
@@ -413,7 +416,8 @@
(jao-afio-switch . jao-notmuch-refresh-hello))
:bind (:map notmuch-hello-mode-map
- (("S" . consult-notmuch)
+ (("a" . jao-notmuch-refresh-agenda)
+ ("S" . consult-notmuch)
("g" . jao-notmuch-refresh-hello)
("SPC" . widget-button-press))
:map notmuch-common-keymap
@@ -429,8 +433,7 @@
(let ((b (current-buffer)))
(select-window notmuch-tree-message-window)
(setq-local jao-notmuch--tree-buffer b)
- (when (and and-click (button-at (point)))
- (push-button))
+ (when (and and-click (button-at (point))) (push-button))
t)))
(defun jao-notmuch-click-message-buffer ()