Add a fast remote update function to nm
This commit is contained in:
parent
63be82b791
commit
e47c2cd2f5
@ -785,7 +785,9 @@
|
|||||||
:bind (:map nm-mode-map
|
:bind (:map nm-mode-map
|
||||||
("n" . nm-read)
|
("n" . nm-read)
|
||||||
("s" . nm-spam)
|
("s" . nm-spam)
|
||||||
("G" . nm-update-remote)
|
("G" . nm-update-remote-fast)
|
||||||
|
("C-G" . nm-update-remote)
|
||||||
|
("M-g" . nm-reset)
|
||||||
("j" . next-line)
|
("j" . next-line)
|
||||||
("k" . previous-line)
|
("k" . previous-line)
|
||||||
("N" . nm-sticky-tag-and-next))
|
("N" . nm-sticky-tag-and-next))
|
||||||
@ -833,6 +835,11 @@
|
|||||||
(interactive)
|
(interactive)
|
||||||
(shell-command "muchsync --upbg ag")
|
(shell-command "muchsync --upbg ag")
|
||||||
(nm-refresh))
|
(nm-refresh))
|
||||||
|
(defun nm-update-remote-fast ()
|
||||||
|
"Pull email from remote mailbox"
|
||||||
|
(interactive)
|
||||||
|
(shell-command "muchsync --upbg ag --nonew")
|
||||||
|
(nm-refresh))
|
||||||
(defvar nm-sticky-tags nil)
|
(defvar nm-sticky-tags nil)
|
||||||
(defun nm-sticky-tag-and-next (tags)
|
(defun nm-sticky-tag-and-next (tags)
|
||||||
(interactive
|
(interactive
|
||||||
|
Loading…
Reference in New Issue
Block a user