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