git.notmuchmail.org Git - notmuch/blob - test/corpora/default/cur/38:2,

   1 From: "Keith Packard" <keithp@keithp.com>
   2 To: notmuch@notmuchmail.org
   3 Date: Wed, 18 Nov 2009 00:29:59 -0800
   4 Subject: [notmuch] [PATCH] Create a default notmuch-show-hook that
   5         highlights URLs and uses word-wrap
   6 Message-ID: <1258532999-9316-1-git-send-email-keithp@keithp.com>
   7
   8 I created the notmuch-show-hook precisely so I could add these two
   9 options, but I suspect most people will want them, so I just made them
  10 the default. If you don't want them, you can use remove-hook to get
  11 rid of this.
  12
  13 Signed-off-by: Keith Packard <keithp at keithp.com>
  14 ---
  15  notmuch.el |    8 ++++++++
  16  1 files changed, 8 insertions(+), 0 deletions(-)
  17
  18 diff --git a/notmuch.el b/notmuch.el
  19 index 1bb1294..c95cb43 100644
  20 --- a/notmuch.el
  21 +++ b/notmuch.el
  22 @@ -698,6 +698,14 @@ view, (remove the \"inbox\" tag from each), with either
  23    :options '(goto-address)
  24    :group 'notmuch)
  25
  26 +; Make show mode a bit prettier, highlighting URLs and using word wrap
  27 +
  28 +(defun notmuch-show-pretty-hook ()
  29 +  (goto-address-mode 1)
  30 +  (visual-line-mode))
  31 +
  32 +(add-hook 'notmuch-show-hook 'notmuch-show-pretty-hook)
  33 +
  34  (defun notmuch-show (thread-id &optional parent-buffer)
  35    "Run \"notmuch show\" with the given thread ID and display results.
  36
  37 --
  38 1.6.5.2
  39
  40