debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-22 09:24:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Add (n)ext and (p)revious bindings to notmuch-show mode.

Browse source 
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.
This commit is contained in:
Carl Worth 2009-11-02 18:45:17 -08:00
parent 4f974ac600
commit 8debf74e82
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
notmuch.el
View file

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