From: markwalters1009@gmail.com This enables fast navigation between hunks and better highlighting. The use of notmuch-get-bodypart-internal could be improved; hard coding to 1 seems to work for the output of git-format-patch. It also not so nice to call (insert (notmuch-get-bodypart-internal ...)) since the last thing n-g-b-i does is call buffer-string. Author: David Bremner <bremner@debian.org> --- This is a hacked version of which does seem to quit on q. The difficulty is that diff-mode sets minor-mode-overriding-map-alist to change the map when the buffer is read-only and it seemed to be difficult to override without affecting diff-mode maps globally. This should be safe in that respect. However, I don't know whether it is allowed to set a keymap to something within a "let" and what happens to it after we exit the let. I am also not completely sure about the lexical-let: but it was what diff-mode used to do this (those two lines are copied from diff-mode) Best wishes Mark emacs/notmuch-show.el | 20 ++++++++++++++++++++ 1 files changed, 20 insertions(+), 0 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 20f8997..e150e7c 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -1694,6 +1694,26 @@ to show, nil otherwise." (set-buffer-modified-p nil) (view-buffer buf 'kill-buffer-if-not-modified))) +(defun notmuch-show-view-as-patch () + "View the the current message as a patch." + (interactive) + (let* ((id (notmuch-show-get-message-id)) + (subject (concat "Subject: " (notmuch-show-get-subject) "\n")) + (diff-default-read-only t) + (buf (get-buffer-create (concat "*notmuch-patch-" id "*"))) + (map (make-sparse-keymap))) + (define-key map "q" 'notmuch-kill-this-buffer) + (switch-to-buffer buf) + (let ((inhibit-read-only t)) + (erase-buffer) + (insert subject) + (insert (notmuch-get-bodypart-internal id 1 nil))) + (set-buffer-modified-p nil) + (diff-mode) + (lexical-let ((new-ro-bind (cons 'buffer-read-only map))) + (add-to-list 'minor-mode-overriding-map-alist new-ro-bind)) + (goto-char (point-min)))) + (defun notmuch-show-pipe-message (entire-thread command) "Pipe the contents of the current message (or thread) to the given command. -- 1.7.9.1