From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id 6CCEE431FBC for ; Wed, 18 Nov 2009 00:30:05 -0800 (PST) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org Received: from olra.theworths.org ([127.0.0.1]) by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 5JoDiArpbwe9 for ; Wed, 18 Nov 2009 00:30:04 -0800 (PST) Received: from keithp.com (home.keithp.com [63.227.221.253]) by olra.theworths.org (Postfix) with ESMTP id A2E46431FAE for ; Wed, 18 Nov 2009 00:30:04 -0800 (PST) Received: from localhost (localhost [127.0.0.1]) by keithp.com (Postfix) with ESMTP id 909D876012B for ; Wed, 18 Nov 2009 00:30:03 -0800 (PST) X-Virus-Scanned: Debian amavisd-new at keithp.com Received: from keithp.com ([127.0.0.1]) by localhost (keithp.com [127.0.0.1]) (amavisd-new, port 10024) with LMTP id nprqy3XbpY7A; Wed, 18 Nov 2009 00:30:00 -0800 (PST) Received: by keithp.com (Postfix, from userid 1033) id A2B8A76012A; Wed, 18 Nov 2009 00:30:00 -0800 (PST) Received: from koto.keithp.com (localhost [127.0.0.1]) by keithp.com (Postfix) with ESMTP id A057E760129; Wed, 18 Nov 2009 00:30:00 -0800 (PST) Received: by koto.keithp.com (Postfix, from userid 1488) id 4C6041581A5; Wed, 18 Nov 2009 00:30:00 -0800 (PST) From: Keith Packard To: notmuch@notmuchmail.org Date: Wed, 18 Nov 2009 00:29:59 -0800 Message-Id: <1258532999-9316-1-git-send-email-keithp@keithp.com> X-Mailer: git-send-email 1.6.5.2 Subject: [PATCH] Create a default notmuch-show-hook that highlights URLs and uses word-wrap X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.12 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 18 Nov 2009 08:30:05 -0000 I created the notmuch-show-hook precisely so I could add these two options, but I suspect most people will want them, so I just made them the default. If you don't want them, you can use remove-hook to get rid of this. Signed-off-by: Keith Packard --- notmuch.el | 8 ++++++++ 1 files changed, 8 insertions(+), 0 deletions(-) diff --git a/notmuch.el b/notmuch.el index 1bb1294..c95cb43 100644 --- a/notmuch.el +++ b/notmuch.el @@ -698,6 +698,14 @@ view, (remove the \"inbox\" tag from each), with either :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. -- 1.6.5.2