debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Re-enable line wrapping in `notmuch-show-mode'.

Browse source 
Turn on `visual-line-mode' via a hook, so that those who so choose can
avoid it.
This commit is contained in:
David Edmondson 2012-01-26 08:17:50 +00:00 committed by David Bremner
parent 58d714e5ce
commit 3f003a3ae0
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
emacs/notmuch-show.el
View file

@ -71,9 +71,10 @@ any given message."
"A list of functions called to decorate the headers listed in "A list of functions called to decorate the headers listed in
`notmuch-message-headers'.") `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." "Functions called after populating a `notmuch-show' buffer."
:type 'hook :type 'hook
:options '(notmuch-show-turn-on-visual-line-mode)
:group 'notmuch-show :group 'notmuch-show
:group 'notmuch-hooks) :group 'notmuch-hooks)
@ -133,6 +134,10 @@ indentation."
,@body) ,@body)
(kill-buffer buf))))) (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 () (defun notmuch-show-view-all-mime-parts ()
"Use external viewers to view all attachments from the current message." "Use external viewers to view all attachments from the current message."
(interactive) (interactive)