1 files changed, 0 insertions, 97 deletions
diff --git a/emacs/.config/emacs-kj/lisp/kj-email.el b/emacs/.config/emacs-kj/lisp/kj-email.el
deleted file mode 100644
index 6cfba74..0000000
--- a/emacs/.config/emacs-kj/lisp/kj-email.el
+++ /dev/null
@@ -1,97 +0,0 @@
-;;; -*- lexical-binding: t; -*-
-
-(setq kj/fastmail-maildir (expand-file-name "~/Maildir/fastmail"))
-
-(when (file-exists-p (expand-file-name "~/Maildir"))
-  (with-eval-after-load 'message
-    (setq message-mail-user-agent 'notmuch-user-agent
-          message-cite-style 'message-cite-style-gmail
-          message-citation-line-function 'message-insert-formatted-citation-line
-          message-kill-buffer-on-exit t)
-    (add-hook 'message-mode-hook 'turn-off-auto-fill)
-    (add-hook 'message-mode-hook 'visual-line-mode))
-  (use-package notmuch
-    :config
-
-    (setq notmuch-show-all-tags-list t
-          notmuch-show-relative-dates t
-          notmuch-hello-tag-list-make-query "tag:unread"
-          notmuch-archive-tags '("-inbox" "-unread")
-          notmuch-fcc-dirs nil
-          notmuch-show-logo nil
-          notmuch-mua-cite-function 'message-cite-original-without-signature
-          notmuch-wash-citation-lines-prefix most-positive-fixnum
-          notmuch-wash-citation-lines-suffix most-positive-fixnum
-          notmuch-show-indent-messages-width 0)
-    (add-hook 'notmuch-show-hook 'kj/disable-trailing-whitespace)
-
-    (defun kj/confirm-empty-subject ()
-      "Allow user to quit when current message subject is empty."
-      (or (message-field-value "Subject")
-          (yes-or-no-p "Really send without Subject? ")
-          (keyboard-quit)))
-    (add-hook 'message-send-hook #'kj/confirm-empty-subject)
-    (advice-add
-     'message-send :before (defun kj/notmuch-switch-to-local (&args)
-                        (when (file-remote-p default-directory)
-                          (cd (expand-file-name "~")))))
-    (setq notmuch-saved-searches
-          '((:name "inbox" :query "tag:inbox -tag:_gz" :key "i" :search-type tree)
-            (:name "unread" :query "tag:unread" :key "u" :search-type tree)
-            (:name "flagged" :query "tag:flagged" :key "f" :search-type tree)
-            (:name "sent" :query "tag:sent" :key "t" :search-type tree)
-            (:name "drafts" :query "tag:draft" :key "d" :search-type tree)
-            (:name "all mail" :query "*" :key "a" :search-type tree)
-            )))
-
-  (setq kj/notmuch-wash-citation-regexp "^\\(\\(>\\|[[:space:]]\\)+\\).*\n")
-
-  ;;; XXX consider upstreaming this.
-  (defun kj/notmuch-wash-citations-by-depth (_msg _depth)
-    (goto-char (point-min))
-    (beginning-of-line)
-    (let ((maxlevel 1))
-      (while (intern-soft (format "message-cited-text-%d" maxlevel))
-        (setq maxlevel (1+ maxlevel)))
-      (setq maxlevel (1- maxlevel))
-
-      (while (and (< (point) (point-max))
-                  (re-search-forward kj/notmuch-wash-citation-regexp nil t))
-        (let* ((cite-start (match-beginning 0))
-               (cite-end (match-end 0))
-               (cite-level (seq-count (lambda (c) (eql c ?>)) (match-string 1)))
-               (face-level (1+ (% (1- cite-level) maxlevel)))
-               (cited-text-face (intern (format  "message-cited-text-%d" face-level))))
-          (overlay-put (make-overlay cite-start cite-end)
-                       'face cited-text-face)))))
-  ;; This doesn't seem to work that well... :(
-  ;;(add-hook 'notmuch-show-insert-text/plain-hook #'kj/notmuch-wash-citations-by-depth 90)
-
-  (defun kj/notmuch-tree-by-tag (tag)
-    (interactive
-     (list (notmuch-select-tag-with-completion "Notmuch search tag: ")))
-    (notmuch-tree (concat "tag:" tag)))
-
-  (define-key notmuch-hello-mode-map "T"
-              'kj/notmuch-tree-by-tag)
-
-  (define-key notmuch-show-mode-map "!"
-              (lambda ()
-                "mark message as spam"
-                (interactive)
-                (notmuch-show-tag (list "+_gz" "-inbox"))))
-
-  (define-key notmuch-search-mode-map "!"
-              (lambda (&optional beg end)
-                "mark thread as spam"
-                (interactive (notmuch-interactive-region))
-                (notmuch-search-tag (list "+_gz" "-inbox") beg end)))
-  )
-
-(when (file-exists-p kj/fastmail-maildir)
-  (setq sendmail-program "mujmap"
-        message-send-mail-function 'message-send-mail-with-sendmail
-        message-signature "Kjetil"
-        message-sendmail-extra-arguments (list "-C" kj/fastmail-maildir "send")))
-
-(provide 'kj-email)