(custom-set-variables
  '(mm-text-html-renderer 'w3m)
  '(send-mail-function 'sendmail-send-it)
  '(sendmail-program "sendmail")
  '(message-kill-buffer-on-exit t))

; swap r and R
(define-key notmuch-show-mode-map "r" 'notmuch-show-reply)
(define-key notmuch-show-mode-map "R" 'notmuch-show-reply-sender)
(define-key notmuch-search-mode-map "r" 'notmuch-search-reply-to-thread)
(define-key notmuch-search-mode-map "R" 'notmuch-search-reply-to-thread-sender)

(custom-set-variables '(notmuch-fcc-dirs nil))
(add-hook 'message-header-setup-hook 'notmuch-bcc-header-setup)
(defun notmuch-bcc-header-setup ()
  (message-add-header "Bcc: gebner@gebner.org"))

(custom-set-variables
  '(mail-specify-envelope-from t)
  '(message-sendmail-envelope-from 'header)
  '(mail-envelope-from 'header))