X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/51db62d880a52ad85f7f1e9f0e93f7404cd96ba9..b5208764640a0cf89b4569efda90eead8499107f:/init.org

diff --git a/init.org b/init.org
index 06fa7e7..6d927c9 100644
--- a/init.org
+++ b/init.org
@@ -319,6 +319,14 @@ in my shell.
   (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
 #+end_src
 
+** Only one custom theme at a time
+
+#+begin_src emacs-lisp
+(defadvice load-theme (before clear-previous-themes activate)
+  "Clear existing theme settings instead of layering them"
+  (mapc #'disable-theme custom-enabled-themes))
+#+end_src
+
 ** Server
 
 Start server if not already running. Alternatively, can be done by
@@ -1246,7 +1254,7 @@ Emacs package that displays available keybindings in popup
         message-send-mail-function 'message-send-mail-with-sendmail
         message-sendmail-envelope-from 'header
         message-directory "drafts"
-        message-user-fqdn "aminb.org")
+        message-user-fqdn "fencepost.gnu.org")
   (add-hook 'message-mode-hook
             (lambda () (setq fill-column 65
                         message-fill-column 65)))
@@ -1328,13 +1336,13 @@ Emacs package that displays available keybindings in popup
 	("S" . (lambda ()
 		 "Mark message as spam"
 		 (interactive)
-		 (notmuch-search-tag '("-unread" "-inbox" "+spam"))
+		 (notmuch-search-tag '("-unread" "-inbox" "-webmasters" "+spam"))
 		 (notmuch-search-archive-thread))))
   (:map notmuch-tree-mode-map  ; TODO: additional bindings
 	("S" . (lambda ()
 		 "Mark message as spam"
 		 (interactive)
-		 (notmuch-tree-tag '("-unread" "-inbox" "+spam"))
+		 (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
 		 (notmuch-tree-archive-thread))))
 )