From 7c18129e423db65c95b1c94b117959ab7c58023d Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Sat, 17 Sep 2022 14:05:06 -0700 Subject: ref(email): remove configuration for notmuch I'm not going to read my emails with Emacs ... Change-Id: I649239057e5a0c35ebbb1eb329b9bee956dd2668 --- emacs/custom/my-notmuch.el | 79 ---------------------------------------------- emacs/init.el | 1 - 2 files changed, 80 deletions(-) delete mode 100644 emacs/custom/my-notmuch.el (limited to 'emacs') diff --git a/emacs/custom/my-notmuch.el b/emacs/custom/my-notmuch.el deleted file mode 100644 index b150619..0000000 --- a/emacs/custom/my-notmuch.el +++ /dev/null @@ -1,79 +0,0 @@ -;;; my-notmuch.el --- Configures notmuch -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'notmuch) - -(setq mail-envelope-from 'header) -(setq mail-specify-envelope-from t) -(setq message-sendmail-envelope-from 'header) - -(setq mail-host-address (system-name)) - -(setq notmuch-mua-user-agent-function - (lambda () (format "Emacs %s; notmuch.el %s" emacs-version notmuch-emacs-version))) -(setq notmuch-mua-cite-function #'message-cite-original-without-signature) - -(defvar my/notmuch-cache-dir (format "%s/.cache/notmuch" (getenv "HOME"))) -(make-directory my/notmuch-cache-dir t) - -;; Cache addresses for completion: -(setq notmuch-address-save-filename (concat my/notmuch-cache-dir "/addresses")) - -;; kill the buffer after sending the message -(setq message-kill-buffer-on-exit t) - -(setq message-send-mail-function 'message-send-mail-with-sendmail) -(setq send-mail-function 'sendmail-send-it) - -(setq notmuch-show-logo nil) -(setq notmuch-always-prompt-for-sender t) -(setq notmuch-show-relative-dates t) -(setq notmuch-archive-tags '("-inbox" "-unread" "-new" "+archive")) -(setq notmuch-fcc-dirs '(("franck@fcuny.net" . "\"FastMail/Sent\" +sent +fastmail -inbox"))) - -;; configurations related to search -;; (TODO: this is not working !?) -(setq notmuch-search-oldest-first nil) - -;; a few saved search - I can jump to them by hitting 'j' -(setq notmuch-saved-searches '(;; all unread messages in my inbox - (:name "inbox unread" :query "tag:inbox AND tag:unread" :key "U" :sort-order "newest-first") - ;; all messages in my inbox - (:name "inbox" :query "tag:inbox" :key "i") - ;; all messages for the current day - (:name "today" :query "date:today" :key "t" :sort-order "newest-first") - ;; all messages for the current week - (:name "this week" :query "date:this_week.." :key "w") - ;; all messages in the inbox that are - ;; unread and less than a week old - (:name "focused inbox" :query "tag:inbox AND tag:unread AND date:this_week.." :key "f") - ;; all messages that are flagged - (:name "flagged" :query "tag:flagged" :key "F") - ;; all messages that have a calendar - ;; invitation, that are unread and in - ;; my inbox - (:name "pending calendar invites" :query "tag:unread AND tag:inbox AND attachment:ics" :key "c") - ;; all unread messages for a year - (:name "unread":query "tag:unread AND date:this_year.." :key "u") - ;; all messages I've sent - (:name "sent" :query "tag:sent" :key "s") - ;; all my emails, no filter - (:name "all emails" :query "*" :key "a"))) -(setq notmuch-show-empty-saved-searches t) - -;; make it short and sweet -(setq notmuch-search-result-format - '(("date" . "%12s ") - ("count" . "%-7s ") - ("authors" . "%-30s ") - ("subject" . "%-72s ") - ("tags" . "(%s)"))) - -(add-hook 'notmuch-message-mode-hook 'flyspell-mode) - -(provide 'my-notmuch) - -;;; my-notmuch.el ends here diff --git a/emacs/init.el b/emacs/init.el index 7db5aab..0aa712d 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -47,7 +47,6 @@ (require 'my-prog) (require 'my-eshell) (require 'my-tramp) -(require 'my-notmuch) (require 'my-elfeed) (require 'my-lsp) -- cgit 1.4.1