blob: 7a48417dc368c6ceee4a29ba4bd539e4a802896c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)
|