ba/7642158e2806c043334df5568f40d81df797dc

   1 Return-Path: <keithp@keithp.com>\r
   2 X-Original-To: notmuch@notmuchmail.org\r
   3 Delivered-To: notmuch@notmuchmail.org\r
   4 Received: from localhost (localhost [127.0.0.1])\r
   5         by olra.theworths.org (Postfix) with ESMTP id 6CCEE431FBC\r
   6         for <notmuch@notmuchmail.org>; Wed, 18 Nov 2009 00:30:05 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 Received: from olra.theworths.org ([127.0.0.1])\r
   9         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  10         with ESMTP id 5JoDiArpbwe9 for <notmuch@notmuchmail.org>;\r
  11         Wed, 18 Nov 2009 00:30:04 -0800 (PST)\r
  12 Received: from keithp.com (home.keithp.com [63.227.221.253])\r
  13         by olra.theworths.org (Postfix) with ESMTP id A2E46431FAE\r
  14         for <notmuch@notmuchmail.org>; Wed, 18 Nov 2009 00:30:04 -0800 (PST)\r
  15 Received: from localhost (localhost [127.0.0.1])\r
  16         by keithp.com (Postfix) with ESMTP id 909D876012B\r
  17         for <notmuch@notmuchmail.org>; Wed, 18 Nov 2009 00:30:03 -0800 (PST)\r
  18 X-Virus-Scanned: Debian amavisd-new at keithp.com\r
  19 Received: from keithp.com ([127.0.0.1])\r
  20         by localhost (keithp.com [127.0.0.1]) (amavisd-new, port 10024)\r
  21         with LMTP id nprqy3XbpY7A; Wed, 18 Nov 2009 00:30:00 -0800 (PST)\r
  22 Received: by keithp.com (Postfix, from userid 1033)\r
  23         id A2B8A76012A; Wed, 18 Nov 2009 00:30:00 -0800 (PST)\r
  24 Received: from koto.keithp.com (localhost [127.0.0.1])\r
  25         by keithp.com (Postfix) with ESMTP id A057E760129;\r
  26         Wed, 18 Nov 2009 00:30:00 -0800 (PST)\r
  27 Received: by koto.keithp.com (Postfix, from userid 1488)\r
  28         id 4C6041581A5; Wed, 18 Nov 2009 00:30:00 -0800 (PST)\r
  29 From: Keith Packard <keithp@keithp.com>\r
  30 To: notmuch@notmuchmail.org\r
  31 Date: Wed, 18 Nov 2009 00:29:59 -0800\r
  32 Message-Id: <1258532999-9316-1-git-send-email-keithp@keithp.com>\r
  33 X-Mailer: git-send-email 1.6.5.2\r
  34 Subject: [notmuch] [PATCH] Create a default notmuch-show-hook that\r
  35         highlights URLs and uses word-wrap\r
  36 X-BeenThere: notmuch@notmuchmail.org\r
  37 X-Mailman-Version: 2.1.12\r
  38 Precedence: list\r
  39 List-Id: "Use and development of the notmuch mail system."\r
  40         <notmuch.notmuchmail.org>\r
  41 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  42         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  43 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  44 List-Post: <mailto:notmuch@notmuchmail.org>\r
  45 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  46 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  47         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  48 X-List-Received-Date: Wed, 18 Nov 2009 08:30:05 -0000\r
  49 \r
  50 I created the notmuch-show-hook precisely so I could add these two\r
  51 options, but I suspect most people will want them, so I just made them\r
  52 the default. If you don't want them, you can use remove-hook to get\r
  53 rid of this.\r
  54 \r
  55 Signed-off-by: Keith Packard <keithp@keithp.com>\r
  56 ---\r
  57  notmuch.el |    8 ++++++++\r
  58  1 files changed, 8 insertions(+), 0 deletions(-)\r
  59 \r
  60 diff --git a/notmuch.el b/notmuch.el\r
  61 index 1bb1294..c95cb43 100644\r
  62 --- a/notmuch.el\r
  63 +++ b/notmuch.el\r
  64 @@ -698,6 +698,14 @@ view, (remove the \"inbox\" tag from each), with either\r
  65    :options '(goto-address)\r
  66    :group 'notmuch)\r
  67  \r
  68 +; Make show mode a bit prettier, highlighting URLs and using word wrap\r
  69 +\r
  70 +(defun notmuch-show-pretty-hook ()\r
  71 +  (goto-address-mode 1)\r
  72 +  (visual-line-mode))\r
  73 +\r
  74 +(add-hook 'notmuch-show-hook 'notmuch-show-pretty-hook)\r
  75 +\r
  76  (defun notmuch-show (thread-id &optional parent-buffer)\r
  77    "Run \"notmuch show\" with the given thread ID and display results.\r
  78  \r
  79 -- \r
  80 1.6.5.2\r
  81 \r