debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 04:18:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Unbind M-RET as display of thread with crypto switch.

Browse source 
Use prefix argument instead to set switch.
This commit is contained in:
Jameson Graef Rollins 2011-05-28 17:09:44 -07:00 committed by David Bremner
parent 64febdf71c
commit 07022714eb
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/notmuch.el
View file

@ -221,7 +221,6 @@ For a mouse binding, return nil."
(define-key map "-" 'notmuch-search-remove-tag) (define-key map "-" 'notmuch-search-remove-tag)
(define-key map "+" 'notmuch-search-add-tag) (define-key map "+" 'notmuch-search-add-tag)
(define-key map (kbd "RET") 'notmuch-search-show-thread) (define-key map (kbd "RET") 'notmuch-search-show-thread)
(define-key map (kbd "M-RET") 'notmuch-search-show-thread-crypto-switch)
map) map)
"Keymap for \"notmuch search\" buffers.") "Keymap for \"notmuch search\" buffers.")
(fset 'notmuch-search-mode-map notmuch-search-mode-map) (fset 'notmuch-search-mode-map notmuch-search-mode-map)
@ -421,13 +420,9 @@ Complete list of currently available key bindings:
"Return a list of authors for the current region" "Return a list of authors for the current region"
(notmuch-search-properties-in-region 'notmuch-search-subject beg end)) (notmuch-search-properties-in-region 'notmuch-search-subject beg end))
(defun notmuch-search-show-thread-crypto-switch ()
(interactive)
(notmuch-search-show-thread t))
(defun notmuch-search-show-thread (&optional crypto-switch) (defun notmuch-search-show-thread (&optional crypto-switch)
"Display the currently selected thread." "Display the currently selected thread."
(interactive) (interactive "P")
(let ((thread-id (notmuch-search-find-thread-id)) (let ((thread-id (notmuch-search-find-thread-id))
(subject (notmuch-search-find-subject))) (subject (notmuch-search-find-subject)))
(if (> (length thread-id) 0) (if (> (length thread-id) 0)