mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emacs: Backup Mutt files on save

master
Pierre Neidhardt 2017-06-03 13:53:31 +01:00
parent f39d015a28
commit f3af0f8772
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
.emacs.d/init.el
View File

@ -113,11 +113,19 @@ To view where the bindings are set in your config files, lookup
;;; Mail with Mutt support.
(add-hook 'mail-mode-hook 'mail-text)
(add-to-list 'auto-mode-alist '("/tmp/mutt-.*" . mail-mode))
(defun mutt-backup-buffer ()
"Create a copy of the current buffer.
This is useful for recovery in case Mutt hangs before sending the
e-mail."
(when (not (boundp 'mutt-backup))
(set (make-local-variable 'mutt-backup) (make-temp-file (concat (buffer-name) "-"))))
(copy-file buffer-file-name mutt-backup t))
(defun mutt-check-buffer ()
(when (and (string-match "/tmp/mutt-.*" (buffer-file-name))
(require 'with-editor nil t))
;; Just like git commits.
(with-editor-mode)))
(when (string-match "/tmp/mutt-.*" (buffer-file-name))
(when (require 'with-editor nil t)
;; Just like git commits.
(with-editor-mode))
(add-hook 'after-save-hook 'mutt-backup-buffer nil t)))
(add-hook 'find-file-hook 'mutt-check-buffer)
;;; Makefile