X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch.el;h=118c0ee7b6e816ff7c5bb44eff12987468ddb127;hp=a6b71b777795d3c6b8b53a2dc75cf16b402c7fc6;hb=9e6ee30cbec3e24b04c1774b398e56858fa206e7;hpb=e9443aeafc0bdeb0d11fa44ee2ad523fb019281e

diff --git a/notmuch.el b/notmuch.el
index a6b71b77..118c0ee7 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -826,9 +826,13 @@ For a mouse binding, return nil."
 (defun notmuch-help ()
   "Display help for the current notmuch mode."
   (interactive)
-  (let ((mode major-mode))
-    (with-help-window (help-buffer)
-      (princ (substitute-command-keys (notmuch-substitute-command-keys (documentation mode t)))))))
+  (let* ((mode major-mode)
+	 (doc (substitute-command-keys (notmuch-substitute-command-keys (documentation mode t)))))
+    (with-current-buffer (generate-new-buffer "*notmuch-help*")
+      (insert doc)
+      (goto-char (point-min))
+      (set-buffer-modified-p nil)
+      (view-buffer (current-buffer) 'kill-buffer-if-not-modified))))
 
 ;;;###autoload
 (defun notmuch-show-mode ()