gebner/etc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update notmuch config.

Browse Source
This commit is contained in:
Gabriel Ebner 2013-04-29 18:40:37 +02:00
parent f23720e7d4
commit 441baeda38
2 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
emacs.el
View File

@ -5,9 +5,7 @@
(if (fboundp 'slime-setup) (slime-setup)) (if (fboundp 'slime-setup) (slime-setup))
(setq user-full-name "Gabriel Ebner" (setq user-full-name "Gabriel Ebner"
user-mail-address "gebner@2b7e.org" user-mail-address "gebner@2b7e.org")
mail-host-address "mail.2b7e.org")
(autoload 'run-haskell "inf-haskell" (autoload 'run-haskell "inf-haskell"
"Start an inferior haskell buffer." t) "Start an inferior haskell buffer." t)

20
notmuch-config.el
View File

@ -1,9 +1,7 @@
(custom-set-variables (setq mm-text-html-renderer 'w3m
'(mm-text-html-renderer 'w3m) send-mail-function 'sendmail-send-it
'(send-mail-function 'sendmail-send-it) message-kill-buffer-on-exit t
'(sendmail-program "sendmail") notmuch-search-oldest-first nil)
'(message-kill-buffer-on-exit t)
'(notmuch-search-oldest-first nil))
; swap r and R ; swap r and R
(define-key notmuch-show-mode-map "r" 'notmuch-show-reply) (define-key notmuch-show-mode-map "r" 'notmuch-show-reply)
@ -11,12 +9,12 @@
(define-key notmuch-search-mode-map "r" 'notmuch-search-reply-to-thread) (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) (define-key notmuch-search-mode-map "R" 'notmuch-search-reply-to-thread-sender)
(custom-set-variables '(notmuch-fcc-dirs nil)) (setq notmuch-fcc-dirs nil)
(add-hook 'message-header-setup-hook 'notmuch-bcc-header-setup) (add-hook 'message-header-setup-hook 'notmuch-bcc-header-setup)
(defun notmuch-bcc-header-setup () (defun notmuch-bcc-header-setup ()
(message-add-header "Bcc: gebner@gebner.org")) (message-add-header "Bcc: gebner@gebner.org"))
(custom-set-variables (setq mail-specify-envelope-from t
'(mail-specify-envelope-from t) mail-envelope-from 'header
'(message-sendmail-envelope-from 'header) message-sendmail-f-is-evil nil
'(mail-envelope-from 'header)) message-sendmail-envelope-from 'header)