debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Make moving to the previous message move to the previous boundary

Browse source 
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.
This commit is contained in:
Austin Clements 2012-07-13 23:47:48 -04:00 committed by David Bremner
parent e0d97a639c
commit c3119c45e1
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch-show.el
View file

@ -1525,9 +1525,11 @@ thread, navigate to the next thread in the parent search buffer."
(goto-char (point-max))))) (goto-char (point-max)))))
(defun notmuch-show-previous-message () (defun notmuch-show-previous-message ()
"Show the previous message." "Show the previous message or the start of the current message."
(interactive) (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-mark-read)
(notmuch-show-message-adjust)) (notmuch-show-message-adjust))
@ -1587,7 +1589,9 @@ to show, nil otherwise."
(defun notmuch-show-previous-open-message () (defun notmuch-show-previous-open-message ()
"Show the previous open message." "Show the previous open message."
(interactive) (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)))) (not (notmuch-show-message-visible-p))))
(notmuch-show-mark-read) (notmuch-show-mark-read)
(notmuch-show-message-adjust)) (notmuch-show-message-adjust))