Add nm-read function and binding

.emacs.d/init.el

@@ -604,6 +604,16 @@
   (setq company-tern-property-marker "⚫")
   (add-hook 'js2-mode-hook (lambda () (tern-mode t))))
 
+(use-package nm
+  :bind (:map nm-mode-map ("N"  . nm-read))
+  :config
+  (defun nm-read ()
+    "Mark message as read."
+    (interactive)
+    (nm-apply-to-result (lambda (q) (notmuch-tag q '("-unread"))))
+    (nm-update-tags)
+    (forward-line)))
+
 ;;; Local Variables
 (add-to-list 'safe-local-eval-forms '(outline-hide-body))
 ;; Local Variables: