diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-02 18:45:17 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-02 18:45:17 -0800 |
commit | 8debf74e82c16890a033ea9008a993da0db1b99a (patch) | |
tree | 6c26f85e35e88b1d3991d884217b1e054fdb7adc | |
parent | 4f974ac600dd3fc2b9bf997bf6d867a23be24eb6 (diff) |
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.
-rw-r--r-- | notmuch.el | 25 |
1 files changed, 25 insertions, 0 deletions
@@ -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\"" |