etc/notmuch-config.el

30 lines
979 B
EmacsLisp
Raw Normal View History

2013-04-29 16:40:37 +00:00
(setq mm-text-html-renderer 'w3m
send-mail-function 'sendmail-send-it
2013-04-30 18:44:20 +00:00
mail-interactive nil
2013-04-29 16:40:37 +00:00
message-kill-buffer-on-exit t
notmuch-search-oldest-first nil)
2013-04-29 14:09:02 +00:00
; 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)
2013-04-29 16:40:37 +00:00
(setq notmuch-fcc-dirs nil)
2013-04-29 14:09:02 +00:00
(add-hook 'message-header-setup-hook 'notmuch-bcc-header-setup)
(defun notmuch-bcc-header-setup ()
(message-add-header "Bcc: gebner@gebner.org"))
2013-04-29 16:40:37 +00:00
(setq mail-specify-envelope-from t
mail-envelope-from 'header
message-sendmail-f-is-evil nil
message-sendmail-envelope-from 'header)
2013-04-29 19:51:45 +00:00
(setq notmuch-address-command "~/etc/notmuch-address")
(notmuch-address-message-insinuate)
2013-04-30 09:47:30 +00:00
; start with inbox
(defun notmuch ()
(interactive)
(notmuch-search "tag:inbox"))