浏览代码

mu4e: switch to contexts

master
Bingen Eguzkitza 5 年前
父节点
当前提交
787d097dec
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. +3
    -3
      lisp/init-mu4e.el

+ 3
- 3
lisp/init-mu4e.el 查看文件

(mu4e-message-contact-field-matches msg (mu4e-message-contact-field-matches msg
:to "aliced@home.example.com"))) :to "aliced@home.example.com")))
:vars '( ( user-mail-address . "aliced@home.example.com" ) :vars '( ( user-mail-address . "aliced@home.example.com" )
( user-full-name . "Alice Derleth" )
( user-full-name . "ßingen" )
( mu4e-compose-signature . nil))) ( mu4e-compose-signature . nil)))
,(make-mu4e-context ,(make-mu4e-context
:name "Work" :name "Work"
(when msg (when msg
(string-match-p "^/Arkham" (mu4e-message-field msg :maildir)))) (string-match-p "^/Arkham" (mu4e-message-field msg :maildir))))
:vars '( ( user-mail-address . "aderleth@miskatonic.example.com" ) :vars '( ( user-mail-address . "aderleth@miskatonic.example.com" )
( user-full-name . "Alice Derleth" )
( user-full-name . "ßingen" )
( mu4e-compose-signature . nil))) ( mu4e-compose-signature . nil)))


,(make-mu4e-context ,(make-mu4e-context
(when msg (when msg
(string= (mu4e-message-field msg :maildir) "/cycling"))) (string= (mu4e-message-field msg :maildir) "/cycling")))
:vars '( ( user-mail-address . "aderleth@example.com" ) :vars '( ( user-mail-address . "aderleth@example.com" )
( user-full-name . "AliceD" )
( user-full-name . "ßingen" )
( mu4e-compose-signature . nil))))) ( mu4e-compose-signature . nil)))))


;; set `mu4e-context-policy` and `mu4e-compose-policy` to tweak when mu4e should ;; set `mu4e-context-policy` and `mu4e-compose-policy` to tweak when mu4e should

正在加载...
取消
保存