summaryrefslogtreecommitdiff
path: root/.emacs.d/notmuch-config.el
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-02-02 12:49:34 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-02-02 12:49:34 -0700
commit62f049e6cc02e37215b2eef5a55f01d27dfb390b (patch)
tree034e0f7ec6a39a680b6092f130e1e816e6c3ebd9 /.emacs.d/notmuch-config.el
parent6657acf040fdbca1131ef10c60870718e6300bc8 (diff)
downloaddotfiles-62f049e6cc02e37215b2eef5a55f01d27dfb390b.tar.gz
readability
Diffstat (limited to '.emacs.d/notmuch-config.el')
-rw-r--r--.emacs.d/notmuch-config.el14
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))))