diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-02 12:49:34 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-02 12:49:34 -0700 |
commit | 62f049e6cc02e37215b2eef5a55f01d27dfb390b (patch) | |
tree | 034e0f7ec6a39a680b6092f130e1e816e6c3ebd9 /.emacs.d/notmuch-config.el | |
parent | 6657acf040fdbca1131ef10c60870718e6300bc8 (diff) | |
download | dotfiles-62f049e6cc02e37215b2eef5a55f01d27dfb390b.tar.gz |
readability
Diffstat (limited to '.emacs.d/notmuch-config.el')
-rw-r--r-- | .emacs.d/notmuch-config.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/.emacs.d/notmuch-config.el b/.emacs.d/notmuch-config.el index f0077821..7e4a9b09 100644 --- a/.emacs.d/notmuch-config.el +++ b/.emacs.d/notmuch-config.el @@ -512,13 +512,13 @@ scroll through them." ;; it not yet at the bottom of the window (pos-visible-in-window-p (point-max)) (notmuch-show-advance)) - (if (let ((query-replace-map ;; override usual map so SPC cannot confirm - ;; the archive, to avoid accidental archives - (let ((map (make-sparse-keymap))) - (set-keymap-parent map query-replace-map) - (define-key map " " 'ignore) - map))) - (y-or-n-p "Mark all as read before moving on?")) + (if (let ((map (make-sparse-keymap))) + (set-keymap-parent map query-replace-map) + (define-key map " " 'ignore) + ;; override usual map so SPC cannot confirm the archive, to avoid + ;; accidental archives + (let ((query-replace-map map)) + (y-or-n-p "Mark all as read before moving on?"))) (notmuch-show-archive-thread-then-next) (notmuch-show-next-thread-show)))) |