diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-04 09:32:47 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-04 09:32:47 -0800 |
commit | daedd2442af849c9693e0f13aaed5e7634a4dc54 (patch) | |
tree | d5e2fffe9cc79e9d31ffe26dd684e82b6647df57 /notmuch.el | |
parent | 33fae33d82baa31f9b6b5dd774ffda76d4d7fcbc (diff) |
notmuch.el: notmuch-search: Advance to next line before showing thread.
The idea here is that after viewing the thread, when we come back to
this buffer we'll be all ready to view the next thread.
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -394,7 +394,7 @@ view, (remove the \"inbox\" tag from each), with (define-key map "s" 'notmuch-search) (define-key map "t" 'notmuch-search-filter-by-tag) (define-key map "x" 'kill-this-buffer) - (define-key map "\r" 'notmuch-search-show-thread) + (define-key map (kbd "RET") 'notmuch-search-show-thread) (define-key map "+" 'notmuch-search-add-tag) (define-key map "-" 'notmuch-search-remove-tag) (define-key map "<" 'beginning-of-buffer) @@ -478,7 +478,9 @@ global search. (defun notmuch-search-show-thread () (interactive) - (notmuch-show (notmuch-search-find-thread-id))) + (let ((thread-id (notmuch-search-find-thread-id))) + (forward-line) + (notmuch-show thread-id))) (defun notmuch-call-notmuch-process (&rest args) (let ((error-buffer (get-buffer-create "*Notmuch errors*"))) @@ -531,7 +533,7 @@ global search. This function advances point to the next line when finished." (interactive) (notmuch-search-remove-tag "inbox") - (next-line)) + (forward-line)) (defun notmuch-search (query) "Run \"notmuch search\" with the given query string and display results." |