(put 'upcase-region 'disabled nil)

;; Fetching mail
(setq +notmuch-sync-backend 'mbsync)
(setq send-mail-function 'sendmail-send-it
      sendmail-program "/usr/bin/msmtp"
      mail-specify-envelope-from t
      message-sendmail-envelope-from 'header
      mail-envelope-from 'header)

;; Sending mail
(setq smtpmail-default-smtp-server "bluehome.net"
       smtpmail-local-domain "bluehome.net")
(load-library "smtpmail")
(setq send-mail-function 'smtpmail-send-it)