diff options
| author |  Austin Clements <amdragon@MIT.EDU> | 2012-07-13 23:47:48 -0400 |
|---|---|---|
| committer |  David Bremner <bremner@debian.org> | 2012-08-12 21:30:10 +0200 |
| commit | c3119c45e1b93a9d5a3925e9ecad70c886ca5064 (patch) | |
| tree | 27f15000000465c64e23d7ce452131166efeb190 /emacs | |
| parent | e0d97a639c3f8cafd84c0c81b9412cfd48b516c1 (diff) | |
emacs: Make moving to the previous message move to the previous boundary
Previously, notmuch-show-previous-message would move to the beginning
of the message before the message containing point. This patch makes
it instead move to the previous message *boundary*. That is, if point
isn't already at the beginning of the message, it moves to the
beginning of the current message. This is consistent with
notmuch-show-next-message, which can be thought of as moving to the
next message boundary. Several people have expressed a preference for
this.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-show.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index dcfc1901..82b5399c 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -1525,9 +1525,11 @@ thread, navigate to the next thread in the parent search buffer." (goto-char (point-max))))) (defun notmuch-show-previous-message () - "Show the previous message." + "Show the previous message or the start of the current message." (interactive) - (notmuch-show-goto-message-previous) + (if (= (point) (notmuch-show-message-top)) + (notmuch-show-goto-message-previous) + (notmuch-show-move-to-message-top)) (notmuch-show-mark-read) (notmuch-show-message-adjust)) @@ -1587,7 +1589,9 @@ to show, nil otherwise." (defun notmuch-show-previous-open-message () "Show the previous open message." (interactive) - (while (and (notmuch-show-goto-message-previous) + (while (and (if (= (point) (notmuch-show-message-top)) + (notmuch-show-goto-message-previous) + (notmuch-show-move-to-message-top)) (not (notmuch-show-message-visible-p)))) (notmuch-show-mark-read) (notmuch-show-message-adjust)) |