blob: 2b53d6369eaba22c92ebaf34f82a0c005ef7a157 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
;;; mf-notmuch.el --- Configuration for notmuch
;;; Code:
(progn
(add-to-list 'load-path "/usr/share/emacs/site-lisp/notmuch/")
(mf/install org-mime)
(mf/autoload-func
:func 'notmuch
:file "notmuch")
(eval-after-load 'notmuch
'(progn
(message "Loaded notmuch")
(require 'mm-encode)
(require 'mml-sec)
(require 'message)
(setq user-mail-address "mario.forzanini@studenti.unimi.it"
user-full-name "Mario Forzanini"
send-mail-function 'transport
sendmail-program (executable-find "msmtp")
mail-specify-envelope-from t
mail-envelope-from 'header
message-sendmail-envelope-from 'header
notmuch-fcc-dirs "Sent"
notmuch-always-prompt-for-sender t
starttls-use-gnutls nil
mm-encrypt-option nil
mm-sign-option nil
mml-secure-opengpg-encrypt-to-self t
mml-secure-openpgp-sign-with-sender t
mml-secure-smime-encrypt-to-self t
mml-secure-smime-sign-with-sender t
mail-signature "--\nMario Forzanini\n"
message-citation-line-format "On %d-%m-%Y, %R %z, %f wrote:\n"
message-citation-line-function 'message-insert-formatted-citation-line
message-confirm-send nil
message-kill-buffer-on-exit t
notmuch-saved-searches
`((:name "personal+unread"
:query "tag:personal and tag:unread"
:key "p"
:search-type tree
:sort-order newest-first)
(:name "personal"
:query "tag:personal"
:key "P"
:search-type tree
:sort-order newest-first)
;; (:name "unimi+unread"
;; :query "tag:uni and tag:unread"
;; :key "u"
;; :sort-order newest-first)
;; (:name "unimi"
;; :query "tag:uni"
;; :key "U"
;; :sort-order newest-first)
(:name "unread"
:query "tag:unread"
:key "r"
:search-type tree
:sort-order newest-first)
(:name "9front"
:query "tag:9front"
:key "9"
:search-type tree
:sort-order newest-first)
(:name "guix"
:query "tag:guix"
:key "g"
:search-type tree
:sort-order newest-first)
(:name "guix+unread"
:query "tag:guix and tag:unread"
:key "G"
:search-type tree
:sort-order newest-first)
(:name "lcm"
:query "tag:lcm and tag:unread"
:key "l"
:search-type tree
:sort-order newest-first)
(:name "sent"
:query "tag:sent"
:search-type tree
:sort-order newest-first))
notmuch-tree-show-out nil
notmuch-unthreaded-show-out nil
notmuch-hello-logo 'nil
notmuch-hello-sections '(notmuch-hello-insert-header
notmuch-hello-insert-saved-searches
notmuch-hello-insert-alltags)))))
(defun mf/notmuch ()
(interactive)
(with-perspective "chat"
(notmuch)))
(mf/leader "M" mf/notmuch)
(provide 'mf-notmuch)
;;; mf-notmuch.el ends here
|
