From: Carl Worth <cworth@cworth.org>
Date: Tue, 3 Nov 2009 02:45:17 +0000 (-0800)
Subject: notmuch.el: Add (n)ext and (p)revious bindings to notmuch-show mode.
X-Git-Tag: 0.1~617
X-Git-Url: https://git.notmuchmail.org/git?a=commitdiff_plain;h=8debf74e82c16890a033ea9008a993da0db1b99a;p=notmuch

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.
---

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\""