Add nm-read function and binding

This commit is contained in:
Adam Goldsmith 2018-01-25 12:17:41 -05:00
parent 7f9a0938f4
commit df377702be

View File

@ -604,6 +604,16 @@
(setq company-tern-property-marker "") (setq company-tern-property-marker "")
(add-hook 'js2-mode-hook (lambda () (tern-mode t)))) (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 ;;; Local Variables
(add-to-list 'safe-local-eval-forms '(outline-hide-body)) (add-to-list 'safe-local-eval-forms '(outline-hide-body))
;; Local Variables: ;; Local Variables: