emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* update key bindings

This commit is contained in:
djcb 2011-12-15 21:47:01 +02:00
parent 60ca7d6e46
commit 1d624ccf86
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
emacs/mu4e-hdrs.el
View File

@ -255,7 +255,7 @@ after the end of the search results."
(define-key map "q" 'mu4e-quit-buffer) (define-key map "q" 'mu4e-quit-buffer)
;; (define-key map "o" 'mu4e-change-sort) ;; (define-key map "o" 'mu4e-change-sort)
(define-key map "g" 'mu4e-rerun-search) (define-key map "r" 'mu4e-rerun-search)
;; navigation ;; navigation
(define-key map "n" 'mu4e-next-header) (define-key map "n" 'mu4e-next-header)

14
emacs/mu4e-main.el
View File

@ -38,17 +38,17 @@
(define-key map "b" 'mu4e-search-bookmark) (define-key map "b" 'mu4e-search-bookmark)
(define-key map "s" 'mu4e-search) (define-key map "s" 'mu4e-search)
(define-key map "S" 'mu4e-search-full) (define-key map "S" 'mu4e-search-full)
(define-key map "q" 'mu4e-quit-mm) (define-key map "q" 'mu4e-quit)
(define-key map "j" 'mu4e-jump-to-maildir) (define-key map "j" 'mu4e-jump-to-maildir)
(define-key map "C" 'mu4e-compose-new) (define-key map "C" 'mu4e-compose-new)
(define-key map "m" 'mu4e-toggle-mail-sending-mode) (define-key map "m" 'mu4e-toggle-mail-sending-mode)
(define-key map "f" 'smtpmail-send-queued-mail) (define-key map "f" 'smtpmail-send-queued-mail)
(define-key map "u" 'mu4e-retrieve-mail-update-db) (define-key map "U" 'mu4e-retrieve-mail-update-db)
(define-key map "H" 'mu4e-display-manual) (define-key map "H" 'mu4e-display-manual)
map) map)
"Keymap for the *mu4e-main* buffer.") "Keymap for the *mu4e-main* buffer.")
(fset 'mu4e-main-mode-map mu4e-main-mode-map) (fset 'mu4e-main-mode-map mu4e-main-mode-map)
@ -62,7 +62,7 @@
(setq (setq
mu4e-marks-map (make-hash-table :size 16 :rehash-size 2) mu4e-marks-map (make-hash-table :size 16 :rehash-size 2)
major-mode 'mu4e-main-mode major-mode 'mu4e-main-mode
mode-name "mu for emacs" mode-name "mu4e"
truncate-lines t truncate-lines t
buffer-read-only t buffer-read-only t
overwrite-mode 'overwrite-mode-binary)) overwrite-mode 'overwrite-mode-binary))
@ -102,14 +102,14 @@
"\n" "\n"
(propertize " Misc\n\n" 'face 'mu4e-title-face) (propertize " Misc\n\n" 'face 'mu4e-title-face)
(mu4e-action-str "\t* [u]pdate email & database\n") (mu4e-action-str "\t* [U]pdate email & database\n")
(mu4e-action-str "\t* toggle [m]ail sending mode ") (mu4e-action-str "\t* toggle [m]ail sending mode ")
"(" (propertize (if smtpmail-queue-mail "queued" "direct") "(" (propertize (if smtpmail-queue-mail "queued" "direct")
'face 'mu4e-view-header-key-face) ")\n" 'face 'mu4e-view-header-key-face) ")\n"
(mu4e-action-str "\t* [f]lush queued mail\n") (mu4e-action-str "\t* [f]lush queued mail\n")
"\n" "\n"
(mu4e-action-str "\t* [H]elp\n") (mu4e-action-str "\t* [H]elp\n")
(mu4e-action-str "\t* [q]uit mm\n")) (mu4e-action-str "\t* [q]uit\n"))
(mu4e-main-mode) (mu4e-main-mode)
(switch-to-buffer buf)))) (switch-to-buffer buf))))
@ -139,7 +139,7 @@
(info-display-manual "mu4e")) (info-display-manual "mu4e"))
(defun mu4e-quit-mm() (defun mu4e-quit()
"Quit the mm session." "Quit the mm session."
(interactive) (interactive)
(when (y-or-n-p "Are you sure you want to quit? ") (when (y-or-n-p "Are you sure you want to quit? ")

6
emacs/mu4e-view.el
View File

@ -254,7 +254,7 @@ or if not available, :body-html converted to text)."
(define-key map "w" 'mu4e-view-toggle-wrap-lines) (define-key map "w" 'mu4e-view-toggle-wrap-lines)
(define-key map "h" 'mu4e-view-toggle-hide-cited) (define-key map "h" 'mu4e-view-toggle-hide-cited)
(define-key map "R" 'mu4e-view-refresh) (define-key map "r" 'mu4e-view-refresh)
;; next 3 only warn user when attempt in the message view ;; next 3 only warn user when attempt in the message view
(define-key map "u" 'mu4e-view-unmark) (define-key map "u" 'mu4e-view-unmark)
@ -280,8 +280,8 @@ or if not available, :body-html converted to text)."
'("View raw message" . mu4e-view-raw)) '("View raw message" . mu4e-view-raw))
(define-key menumap [pipe] (define-key menumap [pipe]
'("Pipe through shell" . mu4e-view-pipe)) '("Pipe through shell" . mu4e-view-pipe))
(define-key menumap [inspect] ;; (define-key menumap [inspect]
'("Inspect with guile" . mu4e-inspect-message)) ;; '("Inspect with guile" . mu4e-inspect-message))
(define-key menumap [sepa8] '("--")) (define-key menumap [sepa8] '("--"))
(define-key menumap [open-att] (define-key menumap [open-att]