notmuch.el: Make 'n' and 'p' bring the current message to the top.

This is much more convenient for reading the messages, and happens
to match the behavior of sup.
This commit is contained in:
Carl Worth 2009-11-02 20:47:11 -08:00
parent 8debf74e82
commit 40382ed98c

View file

@ -51,7 +51,8 @@
(forward-char))
(if (not (re-search-forward notmuch-show-message-begin-regexp nil t))
(goto-char (point-max)))
(beginning-of-line))
(beginning-of-line)
(recenter 0))
(defun notmuch-show-previous-message ()
"Advance point to the beginning of the previous message in the buffer."
@ -60,9 +61,9 @@
(if (not (eobp))
(forward-char))
(if (not (re-search-backward notmuch-show-message-begin-regexp nil t))
(progn
(goto-char (point-min))
(beginning-of-line))))
(goto-char (point-min)))
(beginning-of-line)
(recenter 0))
;;;###autoload
(defun notmuch-show-mode ()