new repository

1 files changed, 210 insertions, 0 deletions

diff --git a/modules/mail-config.el b/modules/mail-config.el
new file mode 100644
index 00000000..ac982814
--- /dev/null
+++ b/modules/mail-config.el
@@ -0,0 +1,210 @@
+;;; mail-config --- Settings for Mu4e Email -*- lexical-binding: t; -*-
+;; author Craig Jennings <c@cjennings.net>
+
+;;; Commentary:
+;; I found Aime Bertrand's blog post to be an excellent walkthrough of how to
+;; setup a Mu4e config.
+
+;; https://macowners.club/posts/email-emacs-mu4e-macos/
+
+;;; Code:
+
+(use-package mu4e
+  :ensure nil  ;; mu4e gets installed by installing 'mu' via the system package manager
+  :load-path "/usr/share/emacs/site-lisp/mu4e/"
+  :defer .5
+  :bind
+  ("C-c m". mu4e)
+  (:map mu4e-headers-mode-map
+        ("M" . cj/mu4e-mark-all-headers)
+        ("D" . mu4e-headers-mark-for-trash)
+		("d" . mu4e-headers-mark-for-delete))
+  (:map mu4e-view-mode-map
+		("r" . mu4e-compose-wide-reply)
+		("R" . mu4e-compose-reply))
+  :hook
+  (mu4e-view-mode . turn-on-visual-line-mode)
+  :config
+  (setq gnus-blocked-images "http")                                         ;; block external images
+  (setq mail-user-agent 'mu4e-user-agent)                                   ;; default to mu4e for email
+  (setq message-citation-line-format "On %a %d %b %Y at %R, %f wrote:\n")   ;; helps show up properly in Outlook/Gmail threads
+  (setq message-citation-line-function 'message-insert-formatted-citation-line)
+  (setq message-kill-buffer-on-exit t)                                      ;; don't keep message buffers around
+  (setq message-signature-file (concat user-emacs-directory "signature"))   ;; look for the signature here
+  (setq mu4e-change-filenames-when-moving t)                                ;; avoid gmail dup UID issues: https://goo.gl/RTCgVa
+  (setq mu4e-completing-read-function 'completing-read)                     ;; use generic completing read, rather than ido
+  (setq mu4e-compose-context-policy 'ask)                                   ;; ask for context if no context matches
+  (setq mu4e-compose-format-flowed t)                                       ;; plain text mails must flow correctly for recipients
+  (setq mu4e-compose-keep-self-cc t)                                        ;; keep me in the cc list
+  (setq mu4e-compose-signature-auto-include nil)                            ;; don't include signature by default
+  (setq mu4e-confirm-quit nil)                                              ;; don't ask when quitting
+  (setq mu4e-context-policy 'pick-first)                                    ;; start with the first (default) context
+  (setq mu4e-headers-auto-update nil)                                       ;; updating headers buffer on email is too jarring
+  (setq mu4e-root-maildir "~/.mail")                                        ;; root directory for all email accounts
+  (setq mu4e-sent-messages-behavior 'delete)                                ;; don't save to "Sent", IMAP does this already
+  (setq mu4e-show-images t)                                                 ;; show embedded images
+  (setq mu4e-update-interval nil)                                           ;; don't update automatically
+
+  (setq mu4e-mu-binary (executable-find "mu"))
+  (setq mu4e-get-mail-command (concat (executable-find "mbsync") " -a"))    ;; command to sync mail
+  (setq mu4e-user-mail-address-list '("c@cjennings.net" "craigmartinjennings@gmail.com"))
+  (setq mu4e-index-update-error-warning nil) ;; don't warn me about spurious sync issues
+
+  (setq mu4e-contexts
+        (list
+
+         (make-mu4e-context
+          :name "gmail.com"
+          :match-func
+          (lambda (msg)
+            (when msg
+              (string-prefix-p "/gmail" (mu4e-message-field msg :maildir))))
+          :vars '((user-mail-address        . "craigmartinjennings@gmail.com")
+                  (user-full-name           . "Craig Jennings")
+                  (mu4e-drafts-folder       . "/gmail/Drafts")
+                  (mu4e-sent-folder         . "/gmail/Sent")
+                  (mu4e-starred-folder      . "/gmail/Starred")
+                  (mu4e-trash-folder        . "/gmail/Trash")))
+
+         (make-mu4e-context
+          :name "cjennings.net"
+          :match-func
+          (lambda (msg)
+            (when msg
+              (string-prefix-p "/cmail" (mu4e-message-field msg :maildir))))
+          :vars '((user-mail-address    . "c@cjennings.net")
+                  (user-full-name       . "Craig Jennings")
+                  (mu4e-drafts-folder   . "/cmail/Drafts")
+                  (mu4e-sent-folder     . "/cmail/Sent")))))
+
+  (setq mu4e-maildir-shortcuts
+        '(("/cmail/Inbox"       . ?i)
+          ("/cmail/Sent"        . ?s)
+          ("/gmail/Inbox"       . ?I)
+          ("/gmail/Sent"        . ?S)))
+
+  ;; bookmarks and their shortcuts
+  (setq mu4e-bookmarks
+        `((:name "cjennings inbox"
+                 :query "maildir:/cmail/INBOX"
+                 :key ?i)
+          (:name "cjennings unread"
+                 :query "maildir:/cmail/INBOX AND flag:unread AND NOT flag:trashed"
+                 :key ?u)
+          (:name "cjennings starred"
+                 :query "maildir:/cmail/INBOX AND flag:flagged"
+                 :key ?s)
+          (:name "cjennings large"
+                 :query "maildir:/cmail/INBOX AND size:5M..999M"
+                 :key ?l)
+          (:name "gmail.com inbox"
+                 :query "maildir:/gmail/INBOX"
+                 :key ?I)
+          (:name "gmail.com unread"
+                 :query "maildir:/gmail/INBOX AND flag:unread AND NOT flag:trashed"
+                 :key ?U)
+          (:name "gmail.com starred"
+                 :query "maildir:/gmail/INBOX AND flag:flagged"
+                 :key ?S)
+          (:name "gmail.com large"
+                 :query "maildir:/gmail/INBOX AND size:5M..999M"
+                 :key ?L)))
+
+  (add-hook 'mu4e-compose-mode-hook
+            (defun cj/set-mu4e-compose ()
+              "My settings for message composition."
+              (set-fill-column 72)))
+
+  ;; Always BCC myself
+  ;; http://www.djcbsoftware.nl/code/mu/mu4e/Compose-hooks.html
+  (defun cj/add-header ()
+    "Add CC: and Bcc: to myself header."
+    (save-excursion (message-add-header
+                     (concat "CC: " "\n")
+                     ;; pre hook above changes user-mail-address.
+                     (concat "Bcc: " user-mail-address "\n"))))
+  (add-hook 'mu4e-compose-mode-hook 'cj/add-header)
+
+  ;; remap the awkward mml-attach-file to the quicker mail-add-attachment
+  (define-key mu4e-compose-mode-map [remap mml-attach-file] 'mail-add-attachment)
+
+  ;; don't allow openwith to mess with your attachments
+  (add-to-list  'mm-inhibit-file-name-handlers 'openwith-file-handler)
+
+  ;; use imagemagick to render images, if available
+  (when (fboundp 'imagemagick-register-types)
+	(imagemagick-register-types)))
+
+;; xwidgets not able to be built into emacs on linux
+;; ;; view in xwidget html rendererer
+;; (add-to-list 'mu4e-headers-actions
+;; 			   '("xWidget" . mu4e-action-view-with-xwidget) t)
+;; (add-to-list 'mu4e-view-actions
+;; 			   '("xWidget" . mu4e-action-view-with-xwidget) t))
+
+(defun no-auto-fill ()
+  "Turn off \'auto-fill-mode\'."
+  (auto-fill-mode -1))
+(add-hook 'mu4e-compose-mode-hook #'no-auto-fill)
+
+
+;; ----------------------------- Compose Mode Hydra ----------------------------
+;; menu available in compose mode
+
+(defhydra hydra-mu4e-compose (:color blue :timeout 10 :hint nil)
+  "Compose Mode Menu\n\n"
+  ("q" quit-window                   "Quit" :column "")
+  ("a" mail-add-attachment           "Add Attachment" :column "")
+  ("r" message-new-line-and-reformat "Newline and Reformat" :column "")
+  ("d" message-delete-not-region     "Delete Outside Region" :column "")
+  )
+
+(defun mu4e-compose-mode-hook-hydra-setup ()
+  "Create hydra/menu keybinding when entering compose mode."
+  (local-set-key (kbd "C-c ?") 'hydra-mu4e-compose/body))
+(add-hook 'mu4e-compose-mode-hook 'mu4e-compose-mode-hook-hydra-setup)
+
+;; ------------------------- Mark All Headers ------------------------
+;; convenience function to mark all headers for an action
+
+(defun cj/mu4e-mark-all-headers ()
+  "Mark all headers for a later action.
+Prompts user for the action when executing."
+  (interactive)
+  (mu4e-headers-mark-for-each-if
+   (cons 'something nil)
+   (lambda (_msg _param) t)))
+
+;;; ------------------ Smtpmail & Easy PG Assistant -----------------
+
+;; Send Mail to smtp host from smtpmail temp buffer.
+(use-package smtpmail
+  :ensure nil ;; built-in
+  :defer .5
+  :config
+  ;; (require 'epa-file)
+  ;; (epa-file-enable)
+  ;; (setq epa-pinentry-mode 'loopback)
+  ;; (auth-source-forget-all-cached)
+
+  (setq message-kill-buffer-on-exit t) ;; don't keep compose buffers after sending
+  (setq sendmail-program (executable-find "msmtp"))
+  (setq send-mail-function 'message-send-mail-with-sendmail
+        message-send-mail-function 'message-send-mail-with-sendmail)
+  (setq message-sendmail-envelope-from 'header)
+  ;; (setq smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg"))
+  ;; (setq starttls-use-gnutls t)
+  ;; (setq smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil)))
+  ;; (setq smtpmail-default-smtp-server "smtp.gmail.com")
+  ;; (setq smtpmail-smtp-server "smtp.gmail.com")
+  ;; (setq smtpmail-smtp-service 587)
+  (setq smtpmail-debug-info t))
+
+;; BUG: queuing mu4e email doesn't currently work.
+;; if you need offline mode, set these -- and create the queue dir
+;; with 'mu mkdir', i.e.. mu mkdir ~/.mail/queued-mail/"
+;; (setq smtpmail-queue-mail  nil)
+;; (setq smtpmail-queue-dir  "~/.mail/queued-mail/"))
+
+(provide 'mail-config)
+;;; mail-config.el ends here