blob: 7892a196cb3f2f849794e0094ebd041fced3e3c1 (
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
;;; notmuch-conf.el --- My configurations of notmuch -*- lexical-binding: t; -*-
;; Copyright (C) 2021 李俊緯
;; Author: 李俊緯 <mmemmew@gmail.com>
;; Keywords: comm, games, mail, news, unix
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; This is my configuration file of notmuch.
;;; Code:
;; The package is not installed in the usual package directory. Rather
;; it is included and installed by the notmuch distribution. So we
;; only have to load it here.
(autoload 'durand-member "common")
;; make sure the path is set up.
(cond
((not (durand-member "/usr/local/share/emacs/site-lisp/"
load-path #'string=))
(setq load-path
(cons "/usr/local/share/emacs/site-lisp/" load-path))))
(load "notmuch")
(require 'notmuch)
(setq notmuch-show-empty-saved-searches t)
(setq notmuch-saved-searches
'((:name "inbox" :query "tag:inbox" :key "i")
(:name "unread" :query "tag:unread" :key "u")
(:name "recent" :query "date:one-week" :key "r")
(:name "sent" :query "tag:sent" :key "e")
(:name "tan" :query "(from:tan or to:tan) and not tag:flagged" :key "t")
(:name "ming lun" :query "from:mlhsieh or to:mlhsieh and not tag:flagged" :key "m")
(:name "drafts" :query "tag:draft" :key "d")
(:name "all mail" :query "*" :key "a")))
(setq notmuch-show-logo nil)
(setq notmuch-column-control t)
(setq notmuch-hello-auto-refresh t)
(setq notmuch-hello-thousands-separator "")
(setq-default notmuch-search-oldest-first nil)
(setq notmuch-hello-sections
'(notmuch-hello-insert-header
notmuch-hello-insert-saved-searches))
(setq notmuch-archive-tags '("-inbox" "+archived"))
(setq notmuch-message-replied-tags '("+replied"))
(setq notmuch-message-forwarded-tags '("+forwarded"))
(setq notmuch-show-mark-read-tags '("-unread"))
(setq notmuch-draft-tags '("+draft"))
(setq notmuch-draft-folder "drafts")
(setq notmuch-draft-save-plaintext 'ask)
(setq notmuch-tagging-keys
(list
(list (vector ?a) 'notmuch-archive-tags "Archive (remove from inbox)")
(list (vector ?d) (list "+del" "-inbox" "-archived" "-unread") "Mark for deletion")
(list (vector ?f) (list "+flag" "-unread") "Flag as important")
(list (vector ?r) 'notmuch-show-mark-read-tags "Mark as read")
(list (vector ?s) (list "+spam" "+del" "-inbox") "Mark as spam")
(list (vector ?t) (list "+todo" "-unread") "Todo")
(list (vector ?u) (list "+unread") "Mark as unread")))
(setq notmuch-tag-formats
'(("unread" (propertize tag 'face 'notmuch-tag-unread))
("flag" (propertize tag 'face 'notmuch-tag-flagged))))
(setq notmuch-tag-deleted-formats
'(("unread" (notmuch-apply-face bare-tag `notmuch-tag-deleted))
(".*" (notmuch-apply-face tag `notmuch-tag-deleted))))
(setq notmuch-mua-compose-in 'current-window)
(setq notmuch-mua-hidden-headers nil)
(setq notmuch-address-command 'internal)
(setq notmuch-always-prompt-for-sender t)
(setq notmuch-mua-cite-function 'message-cite-original)
(setq notmuch-mua-reply-insert-header-p-function 'notmuch-show-reply-insert-header-p-never)
(setq notmuch-mua-user-agent-function #'notmuch-mua-user-agent-full)
(setq notmuch-maildir-use-notmuch-insert t)
(setq notmuch-crypto-process-mime t)
(setq notmuch-crypto-get-keys-asynchronously t)
(setq notmuch-mua-attachment-regexp
(concat "\\b\\(attache\?ment\\|attached\\|attach\\|"
"pi[èe]ce\s+jointe?\\)\\b"))
(setq notmuch-show-relative-dates t)
(setq notmuch-show-all-multipart/alternative-parts nil)
(setq notmuch-show-indent-messages-width 0)
(setq notmuch-show-indent-multipart nil)
(setq notmuch-show-part-button-default-action 'notmuch-show-save-part)
(setq notmuch-show-text/html-blocked-images ".") ; block everything
(setq notmuch-wash-citation-lines-prefix 3)
(setq notmuch-wash-citation-lines-suffix 3)
(setq notmuch-unthreaded-show-out nil)
(setq notmuch-message-headers '("To" "Cc" "Subject" "Date"))
(setq notmuch-message-headers-visible t)
(provide 'notmuch-conf)
;;; notmuch-conf.el ends here
|
