Further configure mu4e

author: Case Duckworth 2021-10-11 21:28:49 -0500
committer: Case Duckworth 2021-10-11 21:28:49 -0500
commit: 2d584b2e26ed69af2180d0ac189d1b517b112a9b (patch)
tree: 7764d76e93db39c935a024f96aec05330e584c3c
parent: Configure mu4e (diff)
download: emacs-2d584b2e26ed69af2180d0ac189d1b517b112a9b.tar.gz
emacs-2d584b2e26ed69af2180d0ac189d1b517b112a9b.zip
1 files changed, 28 insertions, 2 deletions
diff --git a/init.el b/init.el
index 8946ce9..616edfb 100644
--- a/init.el
+++ b/init.el

@@ -751,7 +751,17 @@ specific to most general, they are these:
                     (mu4e-refile-dir
                      . ,(concat work-mail-dir "/[Gmail]/All Mail"))
                     (mu4e-trash-folder
-                      . ,(concat work-mail-dir "/[Gmail]/Trash"))))
+                      . ,(concat work-mail-dir "/[Gmail]/Trash"))
+                     (mu4e-maildir-shortcuts
+                      . ,(mapcar (lambda (cell)
+                                   (let ((dir (car cell))
+                                         (char (cdr cell)))
+                                     (cons (concat work-mail-dir dir) char)))
+                                 '(("/Inbox" . ?i)
+                                   ("/[Gmail]/All Mail" . ?a)
+                                   ("/[Gmail]/Sent" . ?s)
+                                   ("/[Gmail]/Drafts" . ?d)
+                                   ("/[Gmail]/Trash" . ?t))))))
            ;; Home
            (make-mu4e-context
             :name "Home"
@@ -771,10 +781,26 @@ specific to most general, they are these:
                     (mu4e-refile-folder
                      . ,(concat home-mail-dir "/Archive"))
                     (mu4e-trash-folder
-                      . ,(concat home-mail-dir "/Trash")))))
+                      . ,(concat home-mail-dir "/Trash"))
+                     (mu4e-maildir-shortcuts
+                      . ,(mapcar (lambda (cell)
+                                   (let ((dir (car cell))
+                                         (char (cdr cell)))
+                                     (cons (concat home-mail-dir dir) char)))
+                                 '(("/INBOX" . ?i)
+                                   ("/Archive" . ?a)
+                                   ("/Sent" . ?s)
+                                   ("/Drafts" . ?d)
+                                   ("/Trash" . ?t)))))))
           mu4e-get-mail-command "mbsync -a"
           mu4e-maildir "~/mail"
           mu4e-update-interval (* 10 60)
+           sendmail-send-program (seq-some #'executable-find
+                                           '("msmtp"
+                                             "sendmail"))
+           message-sendmail-f-is-evil t
+           message-sendmail-extra-arguments '("--read-envelope-from")
+           message-send-mail-function #'message-send-mail-with-sendmail
           send-mail-function #'smtpmail-send-it
           smtpmail-smtp-service 465
           smtpmail-stream-type 'ssl)
author	Case Duckworth	2021-10-11 21:28:49 -0500
committer	Case Duckworth	2021-10-11 21:28:49 -0500
commit	2d584b2e26ed69af2180d0ac189d1b517b112a9b (patch)
tree	7764d76e93db39c935a024f96aec05330e584c3c
parent	Configure mu4e (diff)
download	emacs-2d584b2e26ed69af2180d0ac189d1b517b112a9b.tar.gz emacs-2d584b2e26ed69af2180d0ac189d1b517b112a9b.zip

diff --git a/init.el b/init.el index 8946ce9..616edfb 100644 --- a/init.el +++ b/init.el
@@ -751,7 +751,17 @@ specific to most general, they are these:
751	(mu4e-refile-dir	751	(mu4e-refile-dir
752	. ,(concat work-mail-dir "/[Gmail]/All Mail"))	752	. ,(concat work-mail-dir "/[Gmail]/All Mail"))
753	(mu4e-trash-folder	753	(mu4e-trash-folder
754	. ,(concat work-mail-dir "/[Gmail]/Trash"))))	754	. ,(concat work-mail-dir "/[Gmail]/Trash"))
		755	(mu4e-maildir-shortcuts
		756	. ,(mapcar (lambda (cell)
		757	(let ((dir (car cell))
		758	(char (cdr cell)))
		759	(cons (concat work-mail-dir dir) char)))
		760	'(("/Inbox" . ?i)
		761	("/[Gmail]/All Mail" . ?a)
		762	("/[Gmail]/Sent" . ?s)
		763	("/[Gmail]/Drafts" . ?d)
		764	("/[Gmail]/Trash" . ?t))))))
755	;; Home	765	;; Home
756	(make-mu4e-context	766	(make-mu4e-context
757	:name "Home"	767	:name "Home"
@@ -771,10 +781,26 @@ specific to most general, they are these:
771	(mu4e-refile-folder	781	(mu4e-refile-folder
772	. ,(concat home-mail-dir "/Archive"))	782	. ,(concat home-mail-dir "/Archive"))
773	(mu4e-trash-folder	783	(mu4e-trash-folder
774	. ,(concat home-mail-dir "/Trash")))))	784	. ,(concat home-mail-dir "/Trash"))
		785	(mu4e-maildir-shortcuts
		786	. ,(mapcar (lambda (cell)
		787	(let ((dir (car cell))
		788	(char (cdr cell)))
		789	(cons (concat home-mail-dir dir) char)))
		790	'(("/INBOX" . ?i)
		791	("/Archive" . ?a)
		792	("/Sent" . ?s)
		793	("/Drafts" . ?d)
		794	("/Trash" . ?t)))))))
775	mu4e-get-mail-command "mbsync -a"	795	mu4e-get-mail-command "mbsync -a"
776	mu4e-maildir "~/mail"	796	mu4e-maildir "~/mail"
777	mu4e-update-interval (* 10 60)	797	mu4e-update-interval (* 10 60)
		798	sendmail-send-program (seq-some #'executable-find
		799	'("msmtp"
		800	"sendmail"))
		801	message-sendmail-f-is-evil t
		802	message-sendmail-extra-arguments '("--read-envelope-from")
		803	message-send-mail-function #'message-send-mail-with-sendmail
778	send-mail-function #'smtpmail-send-it	804	send-mail-function #'smtpmail-send-it
779	smtpmail-smtp-service 465	805	smtpmail-smtp-service 465
780	smtpmail-stream-type 'ssl)	806	smtpmail-stream-type 'ssl)