diff options
author | Kjetil Orbekk <kj@orbekk.com> | 2024-01-07 13:04:45 -0500 |
---|---|---|
committer | Kjetil Orbekk <kj@orbekk.com> | 2024-01-07 13:04:45 -0500 |
commit | 7a07cdd61d626b42f2b05ef8fb843a29b57ed580 (patch) | |
tree | fe02140e0d66312e35ce0f1236fdf50eafb490f1 /emacs/.config/emacs-v2/lisp/kj-email.el | |
parent | d2f973eb627c64f25e76d08418956e9a26b9853a (diff) |
Testing new configuration
Diffstat (limited to 'emacs/.config/emacs-v2/lisp/kj-email.el')
-rw-r--r-- | emacs/.config/emacs-v2/lisp/kj-email.el | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/emacs/.config/emacs-v2/lisp/kj-email.el b/emacs/.config/emacs-v2/lisp/kj-email.el new file mode 100644 index 0000000..4aa6439 --- /dev/null +++ b/emacs/.config/emacs-v2/lisp/kj-email.el @@ -0,0 +1,84 @@ +;;; -*- 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 + :bind + (:map notmuch-hello-mode-map + ("T" . kj/notmuch-tree-by-tag)) + :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)))) + +(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) |