Просмотр исходного кода

mu4e: switch to contexts

master
Bingen Eguzkitza 5 лет назад
Родитель
Сommit
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

Загрузка…
Отмена
Сохранить