.emacs.local.d/modes/mail-mode.el


1
2
3
4
5
6
7
8
9
10

(add-to-list 'auto-mode-alist '("/mutt" . mail-mode))
(add-hook 'mail-mode-hook
          (lambda ()
            (font-lock-add-keywords nil
                                    '(("^[ \t]*>[ \t]*>[ \t]*>.*$"
                                       (0 'compilation-error))
                                      ("^[ \t]*>[ \t]*>.*$"
                                       (0 'compilation-column-number))
                                      ("^[ \t]*>.*$"
                                       (0 'comint-highlight-prompt))))))