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 /notmuch.el | |
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.
Diffstat (limited to 'notmuch.el')
-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\"" |