debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-03-18 21:45:17 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Leave a blank line after last thread in search.

Browse source 
This allows for pleasant termination of the "show next thread" magic
in notmuch-show mode. Now, it will terminate and show the
notmuch-search results rather than continually displaying the last
thread over and over.
This commit is contained in:
Carl Worth 2009-11-04 10:43:07 -08:00
parent 3effd82ace
commit c5672ca12a
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
notmuch.el
View file

@ -428,7 +428,7 @@ thread from that buffer can be show when done with this one)."
"Move point to the last thread in the buffer." "Move point to the last thread in the buffer."
(interactive "^P") (interactive "^P")
(end-of-buffer arg) (end-of-buffer arg)
(beginning-of-line)) (forward-line -1))
;;;###autoload ;;;###autoload
(defun notmuch-search-mode () (defun notmuch-search-mode ()
@ -497,7 +497,9 @@ global search.
(interactive) (interactive)
(let ((thread-id (notmuch-search-find-thread-id))) (let ((thread-id (notmuch-search-find-thread-id)))
(forward-line) (forward-line)
(notmuch-show thread-id (current-buffer)))) (if (> (length thread-id) 0)
(notmuch-show thread-id (current-buffer))
(error "End of search results"))))
(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*")))
@ -569,12 +571,6 @@ This function advances point to the next line when finished."
(save-excursion (save-excursion
(call-process "notmuch" nil t nil "search" query) (call-process "notmuch" nil t nil "search" query)
(notmuch-search-markup-thread-ids) (notmuch-search-markup-thread-ids)
; A well-behaved program ends its output with a newline, but we
; don't actually want the blank line at the end of the file.
(goto-char (point-max))
(if (looking-at "^$")
(delete-backward-char 1)
)
)))) ))))
(defun notmuch-search-refresh-view () (defun notmuch-search-refresh-view ()