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

notmuch.el: notmuch-search: Advance to next line before showing thread.

Browse source 
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.
This commit is contained in:
Carl Worth 2009-11-04 09:32:47 -08:00
parent 33fae33d82
commit daedd2442a
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
notmuch.el
View file

@ -394,7 +394,7 @@ view, (remove the \"inbox\" tag from each), with
(define-key map "s" 'notmuch-search) (define-key map "s" 'notmuch-search)
(define-key map "t" 'notmuch-search-filter-by-tag) (define-key map "t" 'notmuch-search-filter-by-tag)
(define-key map "x" 'kill-this-buffer) (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-add-tag)
(define-key map "-" 'notmuch-search-remove-tag) (define-key map "-" 'notmuch-search-remove-tag)
(define-key map "<" 'beginning-of-buffer) (define-key map "<" 'beginning-of-buffer)
@ -478,7 +478,9 @@ global search.
(defun notmuch-search-show-thread () (defun notmuch-search-show-thread ()
(interactive) (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) (defun notmuch-call-notmuch-process (&rest args)
(let ((error-buffer (get-buffer-create "*Notmuch errors*"))) (let ((error-buffer (get-buffer-create "*Notmuch errors*")))
@ -531,7 +533,7 @@ global search.
This function advances point to the next line when finished." This function advances point to the next line when finished."
(interactive) (interactive)
(notmuch-search-remove-tag "inbox") (notmuch-search-remove-tag "inbox")
(next-line)) (forward-line))
(defun notmuch-search (query) (defun notmuch-search (query)
"Run \"notmuch search\" with the given query string and display results." "Run \"notmuch search\" with the given query string and display results."