"Keymap for \"notmuch show\" buffers.")
(fset 'notmuch-show-mode-map notmuch-show-mode-map)
-(defvar notmuch-show-message-begin-regexp "%message{")
+(defvar notmuch-show-message-begin-regexp "\fmessage{")
(defun notmuch-show-next-message ()
"Advance point to the beginning of the next message in the buffer."
(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."
(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 ()