From: Carl Worth <cworth@cworth.org>
Date: Tue, 3 Nov 2009 19:47:48 +0000 (-0800)
Subject: notmuch.el: Add an '=' key to refresh the current view.
X-Git-Tag: 0.1~610
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=2d507c9c6db9188b3574f7d50144a918d26b3bb1

notmuch.el: Add an '=' key to refresh the current view.

This will allow for updates when a separate process (say, a notmuch-
show buffer), has archived messages.
---

diff --git a/notmuch.el b/notmuch.el
index 545b09c6..c00d3595 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -286,6 +286,7 @@ Before moving, also remove the \"unread\" tag from the current message."
     (define-key map "-" 'notmuch-search-remove-tag)
     (define-key map "<" 'beginning-of-buffer)
     (define-key map ">" 'notmuch-search-goto-last-thread)
+    (define-key map "=" 'notmuch-search-refresh-view)
     (define-key map "\M->" 'notmuch-search-goto-last-thread)
     map)
   "Keymap for \"notmuch search\" buffers.")
@@ -415,6 +416,16 @@ Before moving, also remove the \"unread\" tag from the current message."
 	  )
 	))))
 
+(defun notmuch-search-refresh-view ()
+  "Refresh the current view.
+
+Kills the current buffer and runs a new search with the same
+query string as the current search."
+  (interactive)
+  (let ((query notmuch-search-query-string))
+    (kill-this-buffer)
+    (notmuch-search query)))
+
 (defun notmuch-search-filter (query)
   "Run \"notmuch search\" to refine the current search results.