From daedd2442af849c9693e0f13aaed5e7634a4dc54 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 4 Nov 2009 09:32:47 -0800 Subject: [PATCH] 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. --- notmuch.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/notmuch.el b/notmuch.el index 8e752198..c59b40db 100644 --- a/notmuch.el +++ b/notmuch.el @@ -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."