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

emacs: add stash thread-id function to notmuch-search mode

Browse source 
This add a "stash-map" for search-mode, just like in show-mode, and
adds one function, bound to "i" to stash the thread-id of the current
selected thread.

Couldn't think of the correct way to stash other thread info, so I
didn't add any other stash functions for now.
This commit is contained in:
Jameson Rollins 2010-09-18 15:48:22 -04:00 committed by Carl Worth
parent 128b6259ee
commit 2b433736a5
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
emacs/notmuch.el
View file

@ -207,6 +207,7 @@ For a mouse binding, return nil."
(define-key map "m" 'notmuch-mua-mail) (define-key map "m" 'notmuch-mua-mail)
(define-key map "s" 'notmuch-search) (define-key map "s" 'notmuch-search)
(define-key map "o" 'notmuch-search-toggle-order) (define-key map "o" 'notmuch-search-toggle-order)
(define-key map "c" 'notmuch-search-stash-map)
(define-key map "=" 'notmuch-search-refresh-view) (define-key map "=" 'notmuch-search-refresh-view)
(define-key map "G" 'notmuch-search-poll-and-refresh-view) (define-key map "G" 'notmuch-search-poll-and-refresh-view)
(define-key map "t" 'notmuch-search-filter-by-tag) (define-key map "t" 'notmuch-search-filter-by-tag)
@ -221,6 +222,18 @@ For a mouse binding, return nil."
"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)
(defvar notmuch-search-stash-map
(let ((map (make-sparse-keymap)))
(define-key map "i" 'notmuch-search-stash-thread-id)
map)
"Submap for stash commands")
(fset 'notmuch-search-stash-map notmuch-search-stash-map)
(defun notmuch-search-stash-thread-id ()
"Copy thread ID of current thread to kill-ring."
(interactive)
(notmuch-common-do-stash (notmuch-search-find-thread-id)))
(defvar notmuch-search-query-string) (defvar notmuch-search-query-string)
(defvar notmuch-search-target-thread) (defvar notmuch-search-target-thread)
(defvar notmuch-search-target-line) (defvar notmuch-search-target-line)