From: Jani Nikula <jani@nikula.org>
To: notmuch@notmuchmail.org
Subject: [PATCH] emacs: hello: tell the user about help and notmuch
 customization
Date: Sun, 13 Dec 2015 19:03:41 +0200
Message-Id: <1450026221-23286-1-git-send-email-jani@nikula.org>
Precedence: list

Make it easier for new users to find out about thing in notmuch-emacs.
---
 emacs/notmuch-hello.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index b42e0f24148a..738baad23b20 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -915,12 +915,19 @@ following:
       (widget-insert "Edit saved searches with the `edit' button.\n"))
     (widget-insert "Hit RET or click on a saved search or tag name to view matching threads.\n")
     (widget-insert "`=' to refresh this screen. `s' to search messages. `q' to quit.\n")
+    (widget-insert "`?' in each Notmuch screen to display help for the current mode.\n")
+    (widget-insert "Customize ")
+    (widget-create 'link
+		   :notify (lambda (&rest ignore)
+			     (customize-group 'notmuch))
+		   :button-prefix "" :button-suffix ""
+		   "Notmuch")
+    (widget-insert " or ")
     (widget-create 'link
 		   :notify (lambda (&rest ignore)
 			     (customize-variable 'notmuch-hello-sections))
 		   :button-prefix "" :button-suffix ""
-		   "Customize")
-    (widget-insert " this page.")
+		   "this page.")
     (let ((fill-column (- (window-width) notmuch-hello-indent)))
       (center-region start (point)))))
 
-- 
2.1.4