move init files to lisp directory

1 files changed, 63 insertions, 0 deletions

diff --git a/lisp/email.el b/lisp/email.el
new file mode 100644
index 0000000..31cbfca
--- /dev/null
+++ b/lisp/email.el
@@ -0,0 +1,63 @@
+(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
+(require 'mu4e)
+(setq mu4e-get-mail-command "offlineimap"
+      mu4e-compose-signature-auto-include nil
+      mu4e-update-interval 120
+      mu4e-headers-include-related t)
+
+(setq mu4e-use-fancy-chars t)
+(setq mu4e-html2text-command "w3m -T text/html")
+(setq mu4e-view-show-images t)
+;; use imagemagick, if available
+(when (fboundp 'imagemagick-register-types)
+  (imagemagick-register-types))
+
+(setq mu4e-maildir        "~/Mail"             ;; top-level Maildir
+      mu4e-attachment-dir "~/Downloads"
+      mu4e-sent-folder    "/private/Sent"      ;; folder for sent messages
+      mu4e-drafts-folder  "/private/Drafts"    ;; unfinished messages
+      mu4e-trash-folder   "/private/Trash"     ;; trashed messages
+      mu4e-refile-folder  "/private/Archives") ;; saved messages
+
+(defvar my-mu4e-account-alist
+  '(("private"
+     (mu4e-sent-folder   "/private/Sent")
+     (mu4e-drafts-folder "/private/Drafts")
+     (mu4e-trash-folder  "/private/Trash")
+     (mu4e-refile-folder "/private/Archives"))))
+
+(defun my-mu4e-set-account ()
+  "Set the account for composing a message."
+  (let* ((account
+          (if mu4e-compose-parent-message
+              (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir)))
+                (string-match "/\\(.*?\\)/" maildir)
+                (match-string 1 maildir))
+            (completing-read (format "Compose with account: (%s) "
+                                     (mapconcat #'(lambda (var) (car var))
+                                                my-mu4e-account-alist "/"))
+                             (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist)
+                             nil t nil nil (caar my-mu4e-account-alist))))
+         (account-vars (cdr (assoc account my-mu4e-account-alist))))
+    (if account-vars
+        (mapc #'(lambda (var)
+                  (set (car var) (cadr var)))
+              account-vars)
+      (error "No email account found"))))
+
+(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account)
+
+; set up email sending with msmtp
+(setq mail-user-agent 'mu4e-user-agent)
+(setq mail-specify-envelope-from t)
+(setq mail-envelope-from 'header)
+
+(setq message-kill-buffer-on-exit t)
+(setq message-sendmail-envelope-from 'header)
+(setq message-send-mail-function 'message-send-mail-with-sendmail)
+
+;;use msmtp instead of sendmail
+(setq sendmail-program "/usr/bin/msmtp")
+
+
+(global-set-key (kbd "<f12>") 'mu4e)