From d681d6f132665848fac84494fb801719f5fa4013 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <meyerkya@gmail.com>
Date: Fri, 11 Jan 2013 11:36:05 -0500
Subject: hook for using emacsclient with mutt

---
 conf/km-evil.el |  3 +++
 conf/km-mail.el | 15 +++++++++++++++
 init.el         |  1 +
 3 files changed, 19 insertions(+)
 create mode 100644 conf/km-mail.el

diff --git a/conf/km-evil.el b/conf/km-evil.el
index d6e0ab8..677b55a 100644
--- a/conf/km-evil.el
+++ b/conf/km-evil.el
@@ -29,6 +29,9 @@
 (evil-define-key 'visual lisp-interaction-mode-map
   ",e" 'eval-region)
 
+(evil-define-key 'normal mail-mode-map ",q" 'server-edit)
+(evil-define-key 'normal mail-mode-map ",d" 'server-edit)
+
 (define-key evil-visual-state-map ",c" 'comment-or-uncomment-region)
 (fset 'comment-this-line ;; this depends on evil bindings
       "0v$,c")
diff --git a/conf/km-mail.el b/conf/km-mail.el
new file mode 100644
index 0000000..7a48417
--- /dev/null
+++ b/conf/km-mail.el
@@ -0,0 +1,15 @@
+(add-to-list 'auto-mode-alist '("/mutt" . mail-mode))
+
+(defun km/mail-position ()
+  "Move cursor to first blank line
+and position cursor between two blank lines"
+  (interactive)
+  (forward-paragraph)
+  (insert "\n\n")
+  (previous-line))
+
+(defun km/mail-mode-hook ()
+  (auto-fill-mode 1)
+  (km/mail-position))
+
+(add-hook 'mail-mode-hook 'km/mail-mode-hook)
diff --git a/init.el b/init.el
index cf2cfe2..338589e 100644
--- a/init.el
+++ b/init.el
@@ -12,6 +12,7 @@
 (load "km-evil.el")
 (load "km-ibuffer.el")
 (load "km-ido.el")
+(load "km-mail.el")
 (load "km-python.el")
 (load "km-haskell.el")
 (load "km-tex.el")
-- 
cgit v1.2.3