* mu4e/mu4e-utils.el (mu4e~update-mail-mode): New mode to use when updating emails.
(mu4e-update-mail-and-index): Use it.
This commit is contained in:
@ -814,7 +814,7 @@ in the background; otherwise, pop up a window."
|
|||||||
(setq mu4e~update-buffer-name (buffer-name buf))
|
(setq mu4e~update-buffer-name (buffer-name buf))
|
||||||
(when (not run-in-background)
|
(when (not run-in-background)
|
||||||
(pop-to-buffer buf)
|
(pop-to-buffer buf)
|
||||||
(special-mode))
|
(mu4e~update-mail-mode))
|
||||||
(mu4e-index-message "Retrieving mail...")
|
(mu4e-index-message "Retrieving mail...")
|
||||||
(set-process-sentinel proc
|
(set-process-sentinel proc
|
||||||
(lambda (proc msg)
|
(lambda (proc msg)
|
||||||
@ -842,6 +842,11 @@ in the background; otherwise, pop up a window."
|
|||||||
(interrupt-process (get-buffer-process
|
(interrupt-process (get-buffer-process
|
||||||
(get-buffer mu4e~update-buffer-name)) t))
|
(get-buffer mu4e~update-buffer-name)) t))
|
||||||
|
|
||||||
|
(define-derived-mode mu4e~update-mail-mode special-mode "Mu4eUpdate"
|
||||||
|
"Mode used to update emails in `mu4e'.")
|
||||||
|
|
||||||
|
(define-key mu4e~update-mail-mode-map (kbd "C-c C-c") 'mu4e~interrupt-update-mail)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user