+(defvar notmuch-show-message-begin-regexp "\fmessage{")
+
+(defun notmuch-show-next-message ()
+ "Advance point to the beginning of the next message in the buffer."
+ (interactive)
+ ; First, ensure we get off the current message marker
+ (if (not (eobp))
+ (forward-char))
+ (if (not (re-search-forward notmuch-show-message-begin-regexp nil t))
+ (goto-char (point-max)))
+ (beginning-of-line)
+ (recenter 0))
+
+(defun notmuch-show-previous-message ()
+ "Advance point to the beginning of the previous message in the buffer."
+ (interactive)
+ ; First, ensure we get off the current message marker
+ (if (not (eobp))
+ (forward-char))
+ (if (not (re-search-backward notmuch-show-message-begin-regexp nil t))
+ (goto-char (point-min)))
+ (beginning-of-line)
+ (recenter 0))
+