From 4804edb594ed5905752ba4c111eea44e8fda84d5 Mon Sep 17 00:00:00 2001 From: Raul Benencia Date: Tue, 14 Apr 2026 22:19:38 -0700 Subject: emacs: cheaper notmuch refresh --- .emacs.d/rul-emacs.org | 6 ++++++ .emacs.d/rul-lisp/packages/rul-mail.el | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/.emacs.d/rul-emacs.org b/.emacs.d/rul-emacs.org index 3fb06b3..f68007d 100644 --- a/.emacs.d/rul-emacs.org +++ b/.emacs.d/rul-emacs.org @@ -703,6 +703,12 @@ Emacs can act as Mail User Agent. My preferred package for this is (bind-key "c" 'rul/capture-mail notmuch-show-mode-map) + ;; Keep uppercase refresh cheap after tag operations; use M-g for a full poll. + (define-key notmuch-show-mode-map "G" 'notmuch-refresh-this-buffer) + (define-key notmuch-search-mode-map "G" 'notmuch-refresh-this-buffer) + (define-key notmuch-show-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-search-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-show-mode-map "R" 'notmuch-show-reply) (define-key notmuch-search-mode-map "R" 'notmuch-search-reply-to-thread) diff --git a/.emacs.d/rul-lisp/packages/rul-mail.el b/.emacs.d/rul-lisp/packages/rul-mail.el index 6206118..4af5cc7 100644 --- a/.emacs.d/rul-lisp/packages/rul-mail.el +++ b/.emacs.d/rul-lisp/packages/rul-mail.el @@ -29,6 +29,12 @@ (bind-key "c" 'rul/capture-mail notmuch-show-mode-map) + ;; Keep uppercase refresh cheap after tag operations; use M-g for a full poll. + (define-key notmuch-show-mode-map "G" 'notmuch-refresh-this-buffer) + (define-key notmuch-search-mode-map "G" 'notmuch-refresh-this-buffer) + (define-key notmuch-show-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-search-mode-map (kbd "M-g") 'notmuch-poll-and-refresh-this-buffer) + (define-key notmuch-show-mode-map "R" 'notmuch-show-reply) (define-key notmuch-search-mode-map "R" 'notmuch-search-reply-to-thread) -- cgit v1.2.3