sako/nixos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

config/emacs: epic fail

Browse source
This commit is contained in:
Sakooooo 2024-09-28 22:00:50 +04:00
parent 2ed9d11c94
commit cf679f47a6
Signed by: sako
GPG key ID: FE52FD65B76E4751
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
config/emacs/emacs.org
View file

@ -1178,7 +1178,7 @@ GNU patch review metho dor sometihng idk
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Outlook" (mu4e-message-field msg :maildir)))) (string-prefix-p "/Outlook" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . (cdr (assoc 'outlook sakomacs-mail-accounts))) :vars `((user-mail-address . (lambda () (cdr (assoc 'outlook sakomacs-mail-accounts))))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Outlook/Drafts") (mu4e-drafts-folder . "/Outlook/Drafts")
(mu4e-sent-folder . "/Outlook/Sent") (mu4e-sent-folder . "/Outlook/Sent")
@ -1192,7 +1192,7 @@ GNU patch review metho dor sometihng idk
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Proton" (mu4e-message-field msg :maildir)))) (string-prefix-p "/Proton" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . (cdr (assoc 'protonmail sakomacs-mail-accounts))) :vars `((user-mail-address . (lambda () (cdr (assoc 'protonmail sakomacs-mail-accounts))))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Proton/Drafts") (mu4e-drafts-folder . "/Proton/Drafts")
(mu4e-sent-folder . "/Proton/Sent") (mu4e-sent-folder . "/Proton/Sent")
@ -1206,7 +1206,7 @@ GNU patch review metho dor sometihng idk
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Gmail-Personal-1" (mu4e-message-field msg :maildir)))) (string-prefix-p "/Gmail-Personal-1" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . (cdr (assoc 'gmail-1 sakomacs-mail-accounts))) :vars `((user-mail-address . (lambda () (cdr (assoc 'gmail-1 sakomacs-mail-accounts))))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Gmail-Personal-1/Drafts") (mu4e-drafts-folder . "/Gmail-Personal-1/Drafts")
(mu4e-sent-folder . "/Gmail-Personal-1/Sent Mail") (mu4e-sent-folder . "/Gmail-Personal-1/Sent Mail")
@ -1220,7 +1220,7 @@ GNU patch review metho dor sometihng idk
(lambda (msg) (lambda (msg)
(when msg (when msg
(string-prefix-p "/Gmail-Personal-2" (mu4e-message-field msg :maildir)))) (string-prefix-p "/Gmail-Personal-2" (mu4e-message-field msg :maildir))))
:vars `((user-mail-address . (cdr (assoc 'gmail-2 sakomacs-mail-accounts))) :vars `((user-mail-address . (lambda () (cdr (assoc 'gmail-2 sakomacs-mail-accounts))))
(user-full-name . "Sako") (user-full-name . "Sako")
(mu4e-drafts-folder . "/Gmail-Personal-2/Drafts") (mu4e-drafts-folder . "/Gmail-Personal-2/Drafts")
(mu4e-sent-folder . "/Gmail-Personal-2/Sent Mail") (mu4e-sent-folder . "/Gmail-Personal-2/Sent Mail")