diff options
Diffstat (limited to 'lisp/acdw-mail.el')
-rw-r--r-- | lisp/acdw-mail.el | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/lisp/acdw-mail.el b/lisp/acdw-mail.el index ae78fa0..2a7d128 100644 --- a/lisp/acdw-mail.el +++ b/lisp/acdw-mail.el | |||
@@ -15,7 +15,7 @@ | |||
15 | :key-type (symbol :tag "Variable") | 15 | :key-type (symbol :tag "Variable") |
16 | :value-type (sexp :tag "Value")))) | 16 | :value-type (sexp :tag "Value")))) |
17 | 17 | ||
18 | (defcustom +notmuch-spam-tags '("+spam") | 18 | (defcustom +notmuch-spam-tags '("+spam -inbox -unread") |
19 | "List of tag changes to apply when marking a thread as spam." | 19 | "List of tag changes to apply when marking a thread as spam." |
20 | :group 'notmuch | 20 | :group 'notmuch |
21 | :type '(repeat string)) | 21 | :type '(repeat string)) |
@@ -133,15 +133,17 @@ the saved search as well." | |||
133 | (interactive) | 133 | (interactive) |
134 | (if (require 'async nil t) | 134 | (if (require 'async nil t) |
135 | (progn | 135 | (progn |
136 | (message "Polling mail async...") | 136 | (message "Polling mail (async)...") |
137 | (async-start | 137 | (async-start |
138 | (lambda () | 138 | (lambda () |
139 | (push "~/usr/share/emacs/site-lisp/" load-path) | 139 | (ignore-errors |
140 | (require 'notmuch-lib) | 140 | (push "~/usr/share/emacs/site-lisp/" load-path) |
141 | (notmuch-poll)) | 141 | (require 'notmuch-lib) |
142 | (lambda (result) | 142 | (notmuch-poll))) |
143 | (message "%s" result)))) | 143 | (lambda (_) |
144 | (user-error "Feature `async' not found!"))) | 144 | (message "Polling mail (async)...done")))) |
145 | ;;(user-error "Feature `async' not found!") | ||
146 | (notmuch-poll))) | ||
145 | 147 | ||
146 | 148 | ||
147 | ;;; Packages | 149 | ;;; Packages |
@@ -180,7 +182,7 @@ the saved search as well." | |||
180 | notmuch-search-oldest-first nil | 182 | notmuch-search-oldest-first nil |
181 | notmuch-archive-tags '("-inbox" "-unread") | 183 | notmuch-archive-tags '("-inbox" "-unread") |
182 | notmuch-draft-tags '("+draft" "-inbox" "-unread") | 184 | notmuch-draft-tags '("+draft" "-inbox" "-unread") |
183 | +notmuch-spam-tags '("+spam" "+Spam") | 185 | +notmuch-spam-tags '("+spam") |
184 | mail-user-agent 'notmuch-user-agent | 186 | mail-user-agent 'notmuch-user-agent |
185 | message-mail-user-agent t | 187 | message-mail-user-agent t |
186 | notmuch-show-indent-content nil | 188 | notmuch-show-indent-content nil |
@@ -253,5 +255,9 @@ This version doesn't add any initial-input." | |||
253 | ;; Load init file | 255 | ;; Load init file |
254 | (load notmuch-init-file :noerror)) | 256 | (load notmuch-init-file :noerror)) |
255 | 257 | ||
258 | (use-package notmuch-tags | ||
259 | :load-path "~/src/emacs/notmuch-tags.el/" | ||
260 | :commands (notmuch-tags-mode)) | ||
261 | |||
256 | (provide 'acdw-mail) | 262 | (provide 'acdw-mail) |
257 | ;;; acdw-mail.el ends here | 263 | ;;; acdw-mail.el ends here |