diff options
-rw-r--r-- | init.el | 33 |
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) |