emacs: fix mail

.emacs.d/mail.el

@@ -1,3 +1,23 @@
+(setq user-mail-address "[email protected]")
+(setq user-full-name "Pavel Korytov")
+
+(let ((dir  "/home/pavel/.guix-extra-profiles/mail/mail/share/emacs/site-lisp"))
+  (when (file-directory-p dir)
+    (let ((default-directory dir))
+      (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
   :if (not my/is-termux)
   ;; :ensure nil
@@ -26,3 +46,109 @@
   (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")))
+(setq notmuch-show-empty-saved-searches nil)
+
+(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
+          ("[email protected]" "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)
+
+(defvar my/ru-formal-pronous
+  '("вы" "вас" "вам" "вами" "ваш" "ваша" "ваше" "ваши" "вашего"
+    "вашей" "вашему" "вашим" "вашем" "вашеми"))
+
+(defvar my/ru-formal-pronous-regex
+  (regexp-opt
+   (mapcar (lambda (p) (format " %s " p)) my/ru-formal-pronous) 'words))
+
+(defun my/message-ensure-capitalized-formal-pronouns ()
+  (interactive)
+  (save-excursion
+    (message-goto-body)
+    (cl-block nil
+      (let ((case-fold-search nil)
+            confirmed)
+        (while (re-search-forward my/ru-formal-pronous-regex nil t)
+          (let* ((match (match-string 0))
+                 (capitalized (capitalize match))
+                 (beg (match-beginning 0))
+                 (end (match-end 0)))
+            (if (or confirmed
+                    (y-or-n-p (format "Replace %s with %s? "
+                                      match capitalized)))
+                (progn
+                  (delete-region beg end)
+                  (insert capitalized)
+                  (setq confirmed t))
+              (cl-return))))))))
+
+(add-hook 'notmuch-mua-send-hook #'my/message-ensure-capitalized-formal-pronouns)
+
+(defun my/ensure-password ()
+  (interactive)
+  (my/password-store-get "Job/Digital/Email/[email protected]"))
+
+(add-hook 'notmuch-mua-send-hook #'my/ensure-password)