diff options
| author | Alan Pearce | 2017-09-29 11:25:03 +0200 |
|---|---|---|
| committer | Alan Pearce | 2017-09-29 11:25:03 +0200 |
| commit | ae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99 (patch) | |
| tree | b3be71ef0faab5509af89f02179d1765b00d8a2b | |
| parent | 13cde4dbbb5df743899f45a84d5fc0f59b615efc (diff) | |
| download | dotfiles-ae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99.tar.lz dotfiles-ae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99.tar.zst dotfiles-ae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99.zip | |
Emacs: Add contextual shortcuts for mu4e
| -rw-r--r-- | emacs/.emacs.d/main.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el index 177eefb..93fe418 100644 --- a/emacs/.emacs.d/main.el +++ b/emacs/.emacs.d/main.el @@ -1254,6 +1254,12 @@ With two prefix arguments, write out the day and month name." (mu4e-drafts-folder . "/personal/alanpearce/Drafts") (mu4e-refile-folder . "/personal/alanpearce/Archive") (mu4e-trash-folder . "/personal/alanpearce/Trash") + (mu4e-maildir-shortcuts . (("/personal/alanpearce/INBOX" . ?i) + ("/personal/alanpearce/Archive" . ?s) + ("/personal/alanpearce/Sent" . ?s) + ("/personal/alanpearce/Spam" . ?p) + ("/personal/alanpearce/Orders" . ?o))) + )) (make-mu4e-context :name "Riseup" :match-func (lambda (msg) @@ -1266,6 +1272,10 @@ With two prefix arguments, write out the day and month name." (mu4e-drafts-folder . "/riseup/Drafts") (mu4e-refile-folder . "/riseup/Archive") (mu4e-trash-folder . "/riseup/Trash") + (mu4e-maildir-shortcuts . (("/personal/riseup/INBOX" . ?i) + ("/personal/riseup/Archive" . ?r) + ("/personal/riseup/Sent" . ?s) + ("/personal/riseup/Spam" . ?p))))) (make-mu4e-context :name "Satoshipay" :match-func (lambda (msg) @@ -1278,6 +1288,10 @@ With two prefix arguments, write out the day and month name." (mu4e-sent-folder . "/satoshipay/[Gmail]/.Sent Mail") (mu4e-refile-folder . "/satoshipay/[Gmail]/.All Mail") (mu4e-trash-folder . "/satoshipay/[Gmail]/.Bin") + (mu4e-maildir-shortcuts . (("/satoshipay/INBOX" . ?i) + ("/satoshipay/[Gmail]/.All Mail" . ?r) + ("/satoshipay/[Gmail]/.Sent Mail" . ?s) + ("/satoshipay/[Gmail]/.Spam" . ?p)))))) mu4e-user-mail-address-list (append (delq nil (mapcar (lambda (context) |