summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el33
1 files changed, 31 insertions, 2 deletions
diff --git a/init.el b/init.el index e24e971..e419f66 100644 --- a/init.el +++ b/init.el
@@ -736,6 +736,8 @@ specific to most general, they are these:
736 message-send-mail-function #'smtpmail-send-it 736 message-send-mail-function #'smtpmail-send-it
737 mu4e-change-filenames-when-moving t 737 mu4e-change-filenames-when-moving t
738 mu4e-completing-read-function 'completing-read 738 mu4e-completing-read-function 'completing-read
739 mu4e-compose-context-policy 'ask-if-none
740 mu4e-context-policy 'ask-if-none
739 mu4e-contexts 741 mu4e-contexts
740 (list 742 (list
741 ;; Work 743 ;; Work
@@ -756,7 +758,17 @@ specific to most general, they are these:
756 (mu4e-refile-dir 758 (mu4e-refile-dir
757 . ,(concat work-mail-dir "/[Gmail]/All Mail")) 759 . ,(concat work-mail-dir "/[Gmail]/All Mail"))
758 (mu4e-trash-folder 760 (mu4e-trash-folder
759 . ,(concat work-mail-dir "/[Gmail]/Trash")))) 761 . ,(concat work-mail-dir "/[Gmail]/Trash"))
762 (mu4e-maildir-shortcuts
763 . ,(mapcar (lambda (cell)
764 (let ((dir (car cell))
765 (char (cdr cell)))
766 (cons (concat work-mail-dir dir) char)))
767 '(("/Inbox" . ?i)
768 ("/[Gmail]/All Mail" . ?a)
769 ("/[Gmail]/Sent" . ?s)
770 ("/[Gmail]/Drafts" . ?d)
771 ("/[Gmail]/Trash" . ?t))))))
760 ;; Home 772 ;; Home
761 (make-mu4e-context 773 (make-mu4e-context
762 :name "Home" 774 :name "Home"
@@ -767,6 +779,7 @@ specific to most general, they are these:
767 (mu4e-message-field msg :maildir)))) 779 (mu4e-message-field msg :maildir))))
768 :vars `((user-mail-address . ,home-email) 780 :vars `((user-mail-address . ,home-email)
769 (smtpmail-smtp-server . ,home-smtp-server) 781 (smtpmail-smtp-server . ,home-smtp-server)
782 (mu4e-compose-signature . "~ Case")
770 (mu4e-compose-format-flowed . nil) 783 (mu4e-compose-format-flowed . nil)
771 (mu4e-drafts-folder 784 (mu4e-drafts-folder
772 . ,(concat home-mail-dir "/Drafts")) 785 . ,(concat home-mail-dir "/Drafts"))
@@ -775,10 +788,26 @@ specific to most general, they are these:
775 (mu4e-refile-folder 788 (mu4e-refile-folder
776 . ,(concat home-mail-dir "/Archive")) 789 . ,(concat home-mail-dir "/Archive"))
777 (mu4e-trash-folder 790 (mu4e-trash-folder
778 . ,(concat home-mail-dir "/Trash"))))) 791 . ,(concat home-mail-dir "/Trash"))
792 (mu4e-maildir-shortcuts
793 . ,(mapcar (lambda (cell)
794 (let ((dir (car cell))
795 (char (cdr cell)))
796 (cons (concat home-mail-dir dir) char)))
797 '(("/INBOX" . ?i)
798 ("/Archive" . ?a)
799 ("/Sent" . ?s)
800 ("/Drafts" . ?d)
801 ("/Trash" . ?t)))))))
779 mu4e-get-mail-command "mbsync -a" 802 mu4e-get-mail-command "mbsync -a"
780 mu4e-maildir "~/mail" 803 mu4e-maildir "~/mail"
781 mu4e-update-interval (* 10 60) 804 mu4e-update-interval (* 10 60)
805 sendmail-send-program (seq-some #'executable-find
806 '("msmtp"
807 "sendmail"))
808 message-sendmail-f-is-evil t
809 message-sendmail-extra-arguments '("--read-envelope-from")
810 message-send-mail-function #'message-send-mail-with-sendmail
782 send-mail-function #'smtpmail-send-it 811 send-mail-function #'smtpmail-send-it
783 smtpmail-smtp-service 465 812 smtpmail-smtp-service 465
784 smtpmail-stream-type 'ssl) 813 smtpmail-stream-type 'ssl)