From 8debf74e82c16890a033ea9008a993da0db1b99a Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Mon, 2 Nov 2009 18:45:17 -0800 Subject: [PATCH] notmuch.el: Add (n)ext and (p)revious bindings to notmuch-show mode. Almost starting to get usable now. Still need to make it mark messages as they are read, (by removing the unread tag), and selectively hiding the full header. --- notmuch.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/notmuch.el b/notmuch.el index 54f4a581..7fe5e978 100644 --- a/notmuch.el +++ b/notmuch.el @@ -33,12 +33,37 @@ (defvar notmuch-show-mode-map (let ((map (make-sparse-keymap))) + (define-key map "n" 'notmuch-show-next-message) + (define-key map "p" 'notmuch-show-previous-message) (define-key map "q" 'kill-this-buffer) (define-key map "x" 'kill-this-buffer) map) "Keymap for \"notmuch show\" buffers.") (fset 'notmuch-show-mode-map notmuch-show-mode-map) +(defvar notmuch-show-message-begin-regexp "%message{") + +(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)) + +(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)) + (progn + (goto-char (point-min)) + (beginning-of-line)))) + ;;;###autoload (defun notmuch-show-mode () "Major mode for handling the output of \"notmuch show\""