mirror of
https://github.com/SqrtMinusOne/dotfiles.git
synced 2025-12-10 19:23:03 +03:00
119 lines
4.2 KiB
EmacsLisp
119 lines
4.2 KiB
EmacsLisp
(setq user-mail-address "thexcloud@gmail.com")
|
|
(setq user-full-name "Pavel Korytov")
|
|
|
|
(let ((default-directory "/home/pavel/.guix-extra-profiles/mail/mail/share/emacs/site-lisp"))
|
|
(normal-top-level-add-subdirs-to-load-path))
|
|
|
|
(defun my/notmuch-toggle-trash ()
|
|
(interactive)
|
|
(evil-collection-notmuch-toggle-tag "trash" "search" #'ignore))
|
|
|
|
(defun my/notmuch-toggle-inbox ()
|
|
(interactive)
|
|
(evil-collection-notmuch-toggle-tag "inbox" "search" #'ignore))
|
|
|
|
(defun my/notmuch-toggle-unread ()
|
|
(interactive)
|
|
(evil-collection-notmuch-toggle-tag "unread" "search" #'ignore))
|
|
|
|
(use-package notmuch
|
|
;; :ensure nil
|
|
:commands (notmuch notmuch-search)
|
|
:init
|
|
(my/use-colors
|
|
(notmuch-wash-cited-text :foreground (doom-color 'yellow)))
|
|
:config
|
|
(setq mail-specify-envelope-from t)
|
|
(setq message-sendmail-envelope-from 'header)
|
|
(setq mail-envelope-from 'header)
|
|
(setq notmuch-always-prompt-for-sender t)
|
|
(setq message-send-mail-function #'message-send-mail-with-sendmail)
|
|
(setq sendmail-program (executable-find "msmtp"))
|
|
(setq send-mail-function #'sendmail-send-it)
|
|
(setq mml-secure-openpgp-sign-with-sender t)
|
|
(setq notmuch-mua-user-agent-function 'notmuch-mua-user-agent-full)
|
|
(general-define-key
|
|
:keymaps 'notmuch-search-mode-map
|
|
:states '(normal)
|
|
"d" #'my/notmuch-toggle-trash
|
|
"i" #'my/notmuch-toggle-inbox
|
|
"u" #'my/notmuch-toggle-unread)
|
|
;; Use org-contacts for completion
|
|
(require 'org-contacts)
|
|
(setq notmuch-address-command 'as-is)
|
|
(add-hook 'notmuch-hello-mode-hook
|
|
(lambda () (display-line-numbers-mode 0))))
|
|
|
|
(my-leader-def
|
|
"am" (my/command-in-persp "notmuch" "mail" 0 (notmuch)))
|
|
|
|
(my/persp-add-rule
|
|
notmuch-hello-mode 0 "mail"
|
|
notmuch-search-mode 0 "mail"
|
|
notmuch-tree-mode 0 "mail"
|
|
notmuch-message-mode 0 "mail")
|
|
|
|
(setq notmuch-saved-searches
|
|
'((:name "drafts" :query "tag:draft" :key "d")
|
|
(:name "main (inbox)" :query "tag:main AND tag:inbox" :key "mi")
|
|
(:name "main (unread)" :query "tag:main AND tag:unread" :key "mu")
|
|
(:name "main (sent)" :query "tag:main AND tag:sent" :key "ms")
|
|
(:name "main (all mail)" :query "tag:main" :key "ma")
|
|
(:name "progin (inbox)" :query "tag:progin AND tag:inbox" :key "pi")
|
|
(:name "progin (unread)" :query "tag:progin AND tag:unread" :key "pu")
|
|
(:name "progin (sent)" :query "tag:progin AND tag:sent" :key "ps")
|
|
(:name "progin (all mail)" :query "tag:progin" :key "pa")
|
|
(:name "pvkorytov (inbox)" :query "tag:pvkorytov AND tag:inbox" :key "vi")
|
|
(:name "pvkorytov (unread)" :query "tag:pvkorytov AND tag:unread" :key "vu")
|
|
(:name "pvkorytov (sent)" :query "tag:pvkorytov AND tag:sent" :key "vs")
|
|
(:name "pvkorytov (all mail)" :query "tag:pvkorytov" :key "va")))
|
|
|
|
(general-define-key
|
|
:states '(normal visual)
|
|
:keymaps '(notmuch-hello-mode-map)
|
|
"f" #'notmuch-jump-search)
|
|
|
|
(with-eval-after-load 'notmuch
|
|
(add-hook 'message-setup-hook 'mml-secure-sign-pgpmime))
|
|
|
|
(setq mml-secure-key-preferences
|
|
'((OpenPGP
|
|
(sign
|
|
("thexcloud@gmail.com" "914472A1FD6775C166F96EBEED739ADF81C78160"))
|
|
(encrypt))
|
|
(CMS
|
|
(sign)
|
|
(encrypt))))
|
|
|
|
(defun my/message-insert-signature-need-on-top ()
|
|
t)
|
|
|
|
(defun my/message-maybe-fix-signature (&rest _)
|
|
(when (my/message-insert-signature-need-on-top)
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(when (re-search-forward message-signature-separator nil t)
|
|
(move-beginning-of-line 0)
|
|
(kill-region (point) (point-max)))
|
|
(message-goto-body)
|
|
(when (re-search-forward (rx "sign=pgpmime") nil t)
|
|
(forward-line))
|
|
(insert (current-kill 0))
|
|
(insert "\n\n")
|
|
(set-buffer-modified-p nil))))
|
|
|
|
(with-eval-after-load 'notmuch-mua
|
|
(advice-add #'notmuch-mua-reply :after #'my/message-maybe-fix-signature))
|
|
|
|
(defun my/message-ensure-subject ()
|
|
(unless (or (message-field-value "Subject")
|
|
(y-or-n-p "No subject. Send? "))
|
|
(user-error "Aborting.")))
|
|
|
|
(add-hook 'notmuch-mua-send-hook #'my/message-ensure-subject)
|
|
|
|
(defun my/ensure-password ()
|
|
(interactive)
|
|
(my/password-store-get "Job/Digital/Email/pvkorytov@etu.ru"))
|
|
|
|
(add-hook 'notmuch-mua-send-hook #'my/ensure-password)
|