chvp/nixos-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Postfix all context prefixes with /

Browse source
This commit is contained in:
Charlotte Van Petegem 2021-03-20 23:25:18 +01:00
parent 100151f3be
commit c9d9b35f93
No known key found for this signature in database
GPG key ID: 019E764B7184435A
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/emacs/init.el
View file

@ -181,7 +181,7 @@
(list
(make-mu4e-context
:name "pPersonal"
:match-func (lambda (msg) (when msg (string-prefix-p "/personal" (mu4e-message-field msg :maildir))))
:match-func (lambda (msg) (when msg (string-prefix-p "/personal/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "charlotte@vanpetegem.me")
(user-full-name . "Charlotte Van Petegem")
@ -207,7 +207,7 @@
)
(make-mu4e-context
:name "aWork AAP-WE-FR"
:match-func (lambda (msg) (when msg (string-prefix-p "/work-aap-we-fr" (mu4e-message-field msg :maildir))))
:match-func (lambda (msg) (when msg (string-prefix-p "/work-aap-we-fr/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "aap-we-fr@ugent.be")
(user-full-name . "Charlotte Van Petegem")
@ -220,7 +220,7 @@
)
(make-mu4e-context
:name "oPosteo"
:match-func (lambda (msg) (when msg (string-prefix-p "/posteo" (mu4e-message-field msg :maildir))))
:match-func (lambda (msg) (when msg (string-prefix-p "/posteo/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "chvp@posteo.net")
(user-full-name . "Charlotte Van Petegem")
@ -233,7 +233,7 @@
)
(make-mu4e-context
:name "Jong Groen"
:match-func (lambda (msg) (when msg (string-prefix-p "/jonggroen" (mu4e-message-field msg :maildir))))
:match-func (lambda (msg) (when msg (string-prefix-p "/jonggroen/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "charlotte@jonggroen.be")
(user-full-name . "Charlotte Van Petegem")
@ -246,7 +246,7 @@
)
(make-mu4e-context
:name "bPostbot"
:match-func (lambda (msg) (when msg (string-prefix-p "/postbot" (mu4e-message-field msg :maildir))))
:match-func (lambda (msg) (when msg (string-prefix-p "/postbot/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "postbot@vanpetegem.me")
(user-full-name . "Charlotte Van Petegem")
@ -259,7 +259,7 @@
)
(make-mu4e-context
:name "mWebmaster"
:match-func (lambda (msg) (when msg (string-prefix-p "/webmaster" (mu4e-message-field msg :maildir))))
:match-func (lambda (msg) (when msg (string-prefix-p "/webmaster/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "webmaster@vanpetegem.me")
(user-full-name . "Webmaster")