summaryrefslogtreecommitdiff
path: root/.emacs.d/snippets/email-module.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/snippets/email-module.el')
-rw-r--r--.emacs.d/snippets/email-module.el68
1 files changed, 0 insertions, 68 deletions
diff --git a/.emacs.d/snippets/email-module.el b/.emacs.d/snippets/email-module.el
deleted file mode 100644
index 494bd7b..0000000
--- a/.emacs.d/snippets/email-module.el
+++ /dev/null
@@ -1,68 +0,0 @@
-
-
-(when (equal system-type 'darwin)
- (use-package mu4e
- :load-path "/opt/homebrew/share/emacs/site-lisp/mu/mu4e/"))
-
-(require 'mu4e)
-
-(setq mu4e-update-interval (* 10 60))
-(setq mu4e-get-mail-command "mbsync -a")
-(setq mu4e-maildir-list "~/Mail/Inbox")
-
-(defun set-mu4e-context (context-name full-name mail-address signature server)
- "Return a mu4e context named CONTEXT-NAME with :match-func matching
- folder name CONTEXT-NAME in Maildir. The context's `user-mail-address',
- `user-full-name' and `mu4e-compose-signature'`smtpmail-smpt-server' is set to MAIL-ADDRESS
- FULL-NAME SIGNATURE and SERVER respectively.
- Special folders are set to context specific folders."
- (let ((dir-name (concat "/" context-name)))
- (make-mu4e-context
- :name context-name
- ;; we match based on the maildir of the message
- :match-func
- `(lambda (msg)
- (when msg
- (string-match-p
- ,(concat "^" dir-name)
- (mu4e-message-field msg :maildir))))
- :vars
- `((user-mail-address . ,mail-address)
- (user-full-name . ,full-name)
- (mu4e-sent-folder . ,(concat dir-name "/Sent"))
- (mu4e-drafts-folder . ,(concat dir-name "/Drafts"))
- (mu4e-trash-folder . ,(concat dir-name "/Trash"))
- (mu4e-trash-folder . ,(concat dir-name "/Starred"))
- (mu4e-refile-folder . ,(concat dir-name "/Archive"))
- (smtpmail-smtp-service . ,465)
- (smtpmail-smtp-server . ,server)
- (mu4e-compose-signature . ,signature)))))
-;;Fixing duplicate UID errors when using mbsync and mu4e
-(setq mu4e-change-filenames-when-moving t)
-
-(setq mu4e-maildir-shortcuts
- '(("/Fastmail/Inbox" . ?i)
- ("/Fastmail/Sent" . ?s)
- ;; ("/Gmail/Trash" . ?t)
- ;; ("/Gmail/Drafts" . ?d)
- ;; ("/Gmail/[Gmail]/All Mail" . ?a
- ))
-
-(setq mu4e-contexts
- `(, (set-mu4e-context
- "Fastmail" "Thanos Apollo"
- "[email protected]" "Thanos\nhttps://thanosapollo.com/public"
- "smtp.fastmail.com")))
-
-;; (setq smtpmail-smtp-service 465
-;; smtpmail-stream-type 'ssl
-;; smtpmail-smtp-server "smtp.fastmail.com")
-
-
-
-(setq message-send-mail-function 'smtpmail-send-it
- smtpmail-stream-type 'ssl)
-
-(provide 'email-module)
-;;; email-module.el ends here
-