From 3f003a3ae0ee800cbbae7ac1daa72b3be55f9d83 Mon Sep 17 00:00:00 2001 From: David Edmondson Date: Thu, 26 Jan 2012 08:17:50 +0000 Subject: [PATCH] emacs: Re-enable line wrapping in `notmuch-show-mode'. Turn on `visual-line-mode' via a hook, so that those who so choose can avoid it. --- emacs/notmuch-show.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index c37479a5..94d94ed2 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -71,9 +71,10 @@ any given message." "A list of functions called to decorate the headers listed in `notmuch-message-headers'.") -(defcustom notmuch-show-hook nil +(defcustom notmuch-show-hook '(notmuch-show-turn-on-visual-line-mode) "Functions called after populating a `notmuch-show' buffer." :type 'hook + :options '(notmuch-show-turn-on-visual-line-mode) :group 'notmuch-show :group 'notmuch-hooks) @@ -133,6 +134,10 @@ indentation." ,@body) (kill-buffer buf))))) +(defun notmuch-show-turn-on-visual-line-mode () + "Enable Visual Line mode." + (visual-line-mode t)) + (defun notmuch-show-view-all-mime-parts () "Use external viewers to view all attachments from the current message." (interactive)