summaryrefslogtreecommitdiffstats
path: root/ravi-init-mu.el
diff options
context:
space:
mode:
Diffstat (limited to 'ravi-init-mu.el')
-rw-r--r--ravi-init-mu.el19
1 files changed, 15 insertions, 4 deletions
diff --git a/ravi-init-mu.el b/ravi-init-mu.el
index 63d5844..e2a040f 100644
--- a/ravi-init-mu.el
+++ b/ravi-init-mu.el
@@ -26,12 +26,20 @@
;;; Code:
+(defvar ravi/use-mu-for-email nil
+ "Use mu for email")
+(defvar ravi/mu4e-account-alist nil
+ "An alist containing account information for all accounts")
+(defvar ravi/mu4e-update-interval 1800 ; 30 minutes
+ "Basic update interval; all other update intervals are multiples")
+
(when ravi/use-mu-for-email
(use-package mu4e
:load-path ,(ravi/emacs-file "site-lisp/mu/mu4e")
:commands mu4e
:init
(progn
+ (add-to-list 'Info-default-directory-list (ravi/emacs-file "site-lisp/mu/mu4e"))
(unless ravi/mu4e-account-alist (error "Email account list not found")))
:config
(progn
@@ -81,6 +89,11 @@
(error "No email account found"))))
(add-hook 'mu4e-compose-pre-hook 'ravi/mu4e-set-account)
+ (setq mu4e-compose-dont-reply-to-self t)
+ (defun ravi/set-self-addresses ()
+ (setq mu4e-user-mail-address-list (list user-mail-address)))
+ (add-hook 'mu4e-compose-pre-hook 'ravi/set-self-addresses)
+
;; Use async method of sending email, if possible
(use-package async
:config
@@ -98,9 +111,8 @@
;; Currently, poll all accounts all the time == to do: fix mail intervals per account
(setq mu4e-get-mail-command (concat (ravi/emacs-file "site-lisp/isync/src/mbsync") " -a -q -q"))
- (if (boundp 'ravi/mu4e-update-interval)
- (setq mu4e-update-interval ravi/mu4e-update-interval)
- (setq mu4e-update-interval 1800)) ; pull every 30 minutes
+ (setq mu4e-update-interval ravi/mu4e-update-interval)
+ (setq mu4e-change-filenames-when-moving t)
;; User interface
(setq mu4e-html-renderer 'w3m)
@@ -137,7 +149,6 @@
(add-to-list 'smart-tab-disabled-major-modes 'mu4e-compose-mode)
(imagemagick-register-types)
- (add-to-list 'Info-default-directory-list (ravi/emacs-file "site-lisp/mu/mu4e"))
)
)
)