emacs/mu
1
0
Fork 0
mirror of https://github.com/djcb/mu.git synced 2024-06-28 07:41:04 +02:00
Code Issues Releases Wiki Activity

Merge pull request #288 from thierryvolpiatto/master

Browse Source 
* mu4e/mu4e-utils.el (mu4e~update-mail-mode): New mode to use when updat...
This commit is contained in:
Dirk-Jan C. Binnema 2013-10-10 12:22:25 -07:00
commit b0d7d70938
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-utils.el
View File

@ -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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4
mu4e/mu4e-view.el
View File

@ -545,7 +545,7 @@ FUNC should be a function taking two arguments:
(define-key map (kbd "<home>") 'beginning-of-buffer) (define-key map (kbd "<home>") 'beginning-of-buffer)
(define-key map (kbd "<end>") 'end-of-buffer) (define-key map (kbd "<end>") 'end-of-buffer)
(define-key map (kbd "RET") 'mu4e-scroll-up) (define-key map (kbd "RET") 'mu4e-scroll-up)
(define-key map (kbd "<backspace>") 'mu4e-scroll-up) (define-key map (kbd "<backspace>") 'mu4e-scroll-down)
;; navigation between messages ;; navigation between messages
(define-key map "p" 'mu4e-view-headers-prev) (define-key map "p" 'mu4e-view-headers-prev)
@ -563,9 +563,7 @@ FUNC should be a function taking two arguments:
(define-key map "A" 'mu4e-view-attachment-action) (define-key map "A" 'mu4e-view-attachment-action)
;; marking/unmarking ;; marking/unmarking
(define-key map (kbd "<backspace>") 'mu4e-view-mark-for-trash)
(define-key map "d" 'mu4e-view-mark-for-trash) (define-key map "d" 'mu4e-view-mark-for-trash)
(define-key map (kbd "<delete>") 'mu4e-view-mark-for-delete) (define-key map (kbd "<delete>") 'mu4e-view-mark-for-delete)
(define-key map (kbd "<deletechar>") 'mu4e-mark-for-delete) (define-key map (kbd "<deletechar>") 'mu4e-mark-for-delete)
(define-key map (kbd "D") 'mu4e-view-mark-for-delete) (define-key map (kbd "D") 'mu4e-view-mark-for-delete)