From 9df66e96c4fa98c9b74566712116f4373b5d5c64 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 20 Feb 2023 16:19:03 -0600
Subject: apsodfiuadsfoiudsfpaoidsufpaosidufposdifuapsodifuapsodifu

---
 lisp/acdw-mail.el | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

(limited to 'lisp/acdw-mail.el')

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 @@
                                    :key-type (symbol :tag "Variable")
                                    :value-type (sexp :tag "Value"))))
 
-(defcustom +notmuch-spam-tags '("+spam")
+(defcustom +notmuch-spam-tags '("+spam -inbox -unread")
   "List of tag changes to apply when marking a thread as spam."
   :group 'notmuch
   :type '(repeat string))
@@ -133,15 +133,17 @@ the saved search as well."
   (interactive)
   (if (require 'async nil t)
       (progn
-        (message "Polling mail async...")
+        (message "Polling mail (async)...")
         (async-start
          (lambda ()
-           (push "~/usr/share/emacs/site-lisp/" load-path)
-           (require 'notmuch-lib)
-           (notmuch-poll))
-         (lambda (result)
-           (message "%s" result))))
-    (user-error "Feature `async' not found!")))
+           (ignore-errors
+             (push "~/usr/share/emacs/site-lisp/" load-path)
+             (require 'notmuch-lib)
+             (notmuch-poll)))
+         (lambda (_)
+           (message "Polling mail (async)...done"))))
+    ;;(user-error "Feature `async' not found!")
+    (notmuch-poll)))
 
 
 ;;; Packages
@@ -180,7 +182,7 @@ the saved search as well."
           notmuch-search-oldest-first nil
           notmuch-archive-tags '("-inbox" "-unread")
           notmuch-draft-tags '("+draft" "-inbox" "-unread")
-          +notmuch-spam-tags '("+spam" "+Spam")
+          +notmuch-spam-tags '("+spam")
           mail-user-agent 'notmuch-user-agent
           message-mail-user-agent t
           notmuch-show-indent-content nil
@@ -253,5 +255,9 @@ This version doesn't add any initial-input."
   ;; Load init file
   (load notmuch-init-file :noerror))
 
+(use-package notmuch-tags
+  :load-path "~/src/emacs/notmuch-tags.el/"
+  :commands (notmuch-tags-mode))
+
 (provide 'acdw-mail)
 ;;; acdw-mail.el ends here
-- 
cgit 1.4.1-21-gabe81