Add nm-update-remote function
pretty slow, probably need to change later also, mbsync at end too? maybe async?
This commit is contained in:
parent
df377702be
commit
aee1ecab8a
@ -605,14 +605,20 @@
|
||||
(add-hook 'js2-mode-hook (lambda () (tern-mode t))))
|
||||
|
||||
(use-package nm
|
||||
:bind (:map nm-mode-map ("N" . nm-read))
|
||||
:bind (:map nm-mode-map
|
||||
("n" . nm-read)
|
||||
("G" . nm-update-remote))
|
||||
:config
|
||||
(defun nm-read ()
|
||||
"Mark message as read."
|
||||
(interactive)
|
||||
(nm-apply-to-result (lambda (q) (notmuch-tag q '("-unread"))))
|
||||
(nm-update-tags)
|
||||
(forward-line)))
|
||||
(forward-line))
|
||||
(defun nm-update-remote ()
|
||||
"Pull email from remote mailbox"
|
||||
(interactive)
|
||||
(shell-command "ssh ag 'mbsync inboxes && afew -tn' && muchsync ag")))
|
||||
|
||||
;;; Local Variables
|
||||
(add-to-list 'safe-local-eval-forms '(outline-hide-body))
|
||||
|
Loading…
Reference in New Issue
Block a user