(setq auto-mode-alist (append '((".*tmp/mutt.*" . message-mode)) auto-mode-alist))
(setq auto-mode-alist (append '((".*tmp/neomutt.*" . message-mode)) auto-mode-alist))
(add-to-list 'auto-mode-alist '("/mutt" . mail-mode))

(setq mml-secure-openpgp-sign-with-sender t)

(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))))))