Change-Id: I8e4c0171336cad3ed817956b07b371aba706ab9f Reviewed-on: https://cl.tvl.fyi/c/depot/+/3248 Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
		
			
				
	
	
		
			42 lines
		
	
	
	
		
			1.7 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			42 lines
		
	
	
	
		
			1.7 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
;;; -*- lexical-binding: t; -*-
 | 
						|
 | 
						|
(after! notmuch
 | 
						|
  (setq notmuch-saved-searches
 | 
						|
        '((:name "inbox" :query "tag:inbox tag:important not tag:trash" :key "i")
 | 
						|
          (:name "flagged" :query "tag:flagged" :key "f")
 | 
						|
          (:name "sent" :query "tag:sent" :key "s")
 | 
						|
          (:name "drafts" :query "tag:draft" :key "d")
 | 
						|
 | 
						|
          (:name "work" :query "tag:inbox and tag:important and path:work/**"
 | 
						|
                 :key "w")
 | 
						|
          (:name "personal" :query "tag:inbox and tag:important and path:personal/**"
 | 
						|
                 :key "p"))
 | 
						|
        message-send-mail-function 'message-send-mail-with-sendmail
 | 
						|
        message-sendmail-f-is-evil 't
 | 
						|
        message-sendmail-envelope-from 'header
 | 
						|
        message-sendmail-extra-arguments '("--read-envelope-from"))
 | 
						|
 | 
						|
  (add-hook! notmuch-message-mode-hook #'notmuch-company-setup))
 | 
						|
 | 
						|
(setq notmuch-saved-searches
 | 
						|
        '((:name "inbox" :query "tag:inbox tag:important not tag:trash" :key "i")
 | 
						|
          (:name "flagged" :query "tag:flagged" :key "f")
 | 
						|
          (:name "sent" :query "tag:sent" :key "s")
 | 
						|
          (:name "drafts" :query "tag:draft" :key "d")
 | 
						|
 | 
						|
          (:name "work" :query "tag:inbox and tag:important and path:work/**"
 | 
						|
                 :key "w")
 | 
						|
          (:name "personal" :query "tag:inbox and tag:important and path:personal/**"
 | 
						|
                 :key "p"))
 | 
						|
        message-send-mail-function 'message-send-mail-with-sendmail
 | 
						|
        message-sendmail-f-is-evil 't
 | 
						|
        message-sendmail-envelope-from 'header
 | 
						|
        message-sendmail-extra-arguments '("--read-envelope-from"))
 | 
						|
 | 
						|
(set-popup-rule! "^\\*notmuch-saved-search-"
 | 
						|
  :ignore t)
 | 
						|
 | 
						|
(set-popup-rule! (lambda (_ action)
 | 
						|
                   (eq (car action)
 | 
						|
                       'display-buffer-same-window))
 | 
						|
  :ignore t)
 |