From eed3dd09cfbccae4e7cb60be636cae3382d98709 Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Tue, 8 Jul 2014 09:46:15 -0700
Subject: Set up defaults and prevent answering to self


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"))
       )
     )
   )
-- 
cgit v0.10.1