diff options
Diffstat (limited to 'emacs/notmuch.el')
| -rw-r--r-- | emacs/notmuch.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el index c22add7a..3311fe8b 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -218,6 +218,7 @@ For a mouse binding, return nil." (define-key map "-" 'notmuch-search-remove-tag) (define-key map "+" 'notmuch-search-add-tag) (define-key map (kbd "RET") 'notmuch-search-show-thread) + (define-key map (kbd "M-RET") 'notmuch-search-show-thread-crypto-switch) map) "Keymap for \"notmuch search\" buffers.") (fset 'notmuch-search-mode-map notmuch-search-mode-map) @@ -417,7 +418,11 @@ Complete list of currently available key bindings: "Return a list of authors for the current region" (notmuch-search-properties-in-region 'notmuch-search-subject beg end)) -(defun notmuch-search-show-thread () +(defun notmuch-search-show-thread-crypto-switch () + (interactive) + (notmuch-search-show-thread t)) + +(defun notmuch-search-show-thread (&optional crypto-switch) "Display the currently selected thread." (interactive) (let ((thread-id (notmuch-search-find-thread-id)) @@ -433,7 +438,8 @@ Complete list of currently available key bindings: (concat "*" (truncate-string-to-width subject 32 nil nil t) "*") - 32 nil nil t))) + 32 nil nil t)) + crypto-switch) (error "End of search results")))) (defun notmuch-search-reply-to-thread (&optional prompt-for-sender) |