Add nm-read function and binding
This commit is contained in:
parent
7f9a0938f4
commit
df377702be
@ -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:
|
||||||
|
Loading…
Reference in New Issue
Block a user