X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-hello.el;h=1ad1beafdc8ff5f40084887a9be489b7c2b262db;hp=c1c6f4b42186698f75fee9549ca1ab62daf58bd3;hb=486340e28ea9d0ac3ed3e7dc463a67ddb2d7d061;hpb=e2f30a2b32392cb8ca50d9eb1bbaa13abe74253d

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)))