[notmuch] [PATCH -V3] notmuch: Add search mode hook

[Aneesh Kumar K.V]

This patch add notmuch-search-hook that gets run when we
after displaying search results


Signed-off-by: Aneesh Kumar K.V 
Cc:Keith Packard 

---
 notmuch.el |   12 +++-
 1 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index 706e9f3..1fc54c3 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -654,6 +654,12 @@ view, (remove the \"inbox\" tag from each), with
   :options '(goto-address)
   :group 'notmuch)

+(defcustom notmuch-search-hook nil
+  "List of functions to call when notmuch displays the search results."
+  :type 'hook
+  :options '(hl-line-mode)
+  :group 'notmuch)
+
 ; Make show mode a bit prettier, highlighting URLs and using word wrap

 (defun notmuch-show-pretty-hook ()
@@ -661,6 +667,9 @@ view, (remove the \"inbox\" tag from each), with
   (visual-line-mode))

 (add-hook 'notmuch-show-hook 'notmuch-show-pretty-hook)
+(add-hook 'notmuch-search-hook
+ (lambda()
+   (hl-line-mode 1) ))

 (defun notmuch-show (thread-id  parent-buffer)
   "Run \"notmuch show\" with the given thread ID and display results.
@@ -911,7 +920,8 @@ This function advances point to the next line when 
finished."
(call-process "notmuch" nil t nil "search" "--sort=oldest-first" 
query)
  (call-process "notmuch" nil t nil "search" "--sort=newest-first" 
query))
(notmuch-search-markup-thread-ids)
-   
+   ))
+(run-hooks 'notmuch-search-hook)))

 (defun notmuch-search-refresh-view ()
   "Refresh the current view.
-- 
1.6.5.2.74.g610f9

[notmuch] [PATCH -V3] notmuch: Add search mode hook

[Keith Packard]

On Thu, 19 Nov 2009 11:40:54 +0530, "Aneesh Kumar K.V"  wrote:
> This patch add notmuch-search-hook that gets run when we
> after displaying search results

Looks good.

> Signed-off-by: Aneesh Kumar K.V 
Reviewed-by: Keith Packard 

--
keith.packard at intel.com
-- next part --
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
URL: