From: Servilio Afre Puentes <servilio@gmail.com>
Date: Fri, 7 Jun 2013 20:55:57 +0000 (-0400)
Subject: emacs: hello: ask confirmation for clearing recent searches
X-Git-Tag: 0.16_rc1~63
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=486340e28ea9d0ac3ed3e7dc463a67ddb2d7d061

emacs: hello: ask confirmation for clearing recent searches

The button to clear the recent searches in notmuch-hello is easy to
press accidentally while moving around the, clearing potentially
useful searches with no way of recovering them.
---

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index c1c6f4b4..1ad1beaf 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -599,8 +599,9 @@ Complete list of currently available key bindings:
     (widget-insert "Recent searches: ")
     (widget-create 'push-button
 		   :notify (lambda (&rest ignore)
-			     (setq notmuch-search-history nil)
-			     (notmuch-hello-update))
+			     (when (y-or-n-p "Are you sure you want to clear the searches? ")
+			       (setq notmuch-search-history nil)
+			       (notmuch-hello-update)))
 		   "clear")
     (widget-insert "\n\n")
     (let ((start (point)))