about summary refs log tree commit diff
path: root/users/grfn/emacs.d/email.el
diff options
context:
space:
mode:
Diffstat (limited to 'users/grfn/emacs.d/email.el')
-rw-r--r--users/grfn/emacs.d/email.el53
1 files changed, 0 insertions, 53 deletions
diff --git a/users/grfn/emacs.d/email.el b/users/grfn/emacs.d/email.el
deleted file mode 100644
index 70360d00727c..000000000000
--- a/users/grfn/emacs.d/email.el
+++ /dev/null
@@ -1,53 +0,0 @@
-;;; -*- 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)
-
-(defun apply-thread-patchset (repo branch)
-  (interactive "Dgit repo: \nsnew branch name: ")
-  (let ((tid notmuch-show-thread-id)
-        (tmp "/tmp/notmuch-patchset"))
-    (shell-command (format "notmuch-extract-patch %s > %s && ( cd %s && git checkout -b %s && git am %s )"
-                           (shell-quote-argument tid)
-                           (shell-quote-argument tmp)
-                           (shell-quote-argument (expand-file-name repo))
-                           (shell-quote-argument branch)
-                           (shell-quote-argument tmp)))))