X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=notmuch.el;h=1934ddfc4febf36e625dd67fd0486ddcbf2b6910;hb=adbdafbde289ebb724a31cf5ea82e1986ff88ccd;hp=f4b09e90729c6fd8451ce300bf1d672fdec3e9c9;hpb=6caf631ebf79e2e9ba7e6a80244152b3c3615209;p=notmuch

diff --git a/notmuch.el b/notmuch.el
index f4b09e90..1934ddfc 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -651,6 +651,14 @@ view, (remove the \"inbox\" tag from each), with
   :options '(goto-address)
   :group 'notmuch)
 
+; Make show mode a bit prettier, highlighting URLs and using word wrap
+
+(defun notmuch-show-pretty-hook ()
+  (goto-address-mode 1)
+  (visual-line-mode))
+
+(add-hook 'notmuch-show-hook 'notmuch-show-pretty-hook)
+
 (defun notmuch-show (thread-id &optional parent-buffer)
   "Run \"notmuch show\" with the given thread ID and display results.
 
@@ -772,6 +780,7 @@ global search.
   (set (make-local-variable 'scroll-preserve-screen-position) t)
   (add-to-invisibility-spec 'notmuch-search)
   (use-local-map notmuch-search-mode-map)
+  (setq truncate-lines t)
   (setq major-mode 'notmuch-search-mode
 	mode-name "notmuch-search")
   (setq buffer-read-only t))