sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 19:45:25 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(mail): always swap signature

Browse source
This commit is contained in:
Pavel Korytov 2022-10-28 09:45:20 +03:00
parent bf70b39efe
commit 12ea14e42b
2 changed files with 6 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
.emacs.d/mail.el
View file

@ -100,26 +100,8 @@
(sign) (sign)
(encrypt)))) (encrypt))))
(setq my/message-signature-on-top '("@etu.ru"))
(defun my/message-insert-signature-need-on-top () (defun my/message-insert-signature-need-on-top ()
(let ((parts (split-string t)
(string-join
(list
(message-fetch-field "to")
(message-fetch-field "cc")
(message-fetch-field "bcc"))
", ")
", ")))
(and
(seq-some
(lambda (rule)
(seq-some
(lambda (part)
(string-match-p rule part))
parts))
my/message-signature-on-top)
t)))
(defun my/message-maybe-fix-signature (&rest _) (defun my/message-maybe-fix-signature (&rest _)
(when (my/message-insert-signature-need-on-top) (when (my/message-insert-signature-need-on-top)

27
Mail.org
View file

@ -396,7 +396,7 @@ Some functions to toggle tags:
(evil-collection-notmuch-toggle-tag "unread" "search" #'ignore)) (evil-collection-notmuch-toggle-tag "unread" "search" #'ignore))
#+end_src #+end_src
Finally the proper notmuch settings: And notmuch settings:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package notmuch (use-package notmuch
;; :ensure nil ;; :ensure nil
@ -560,30 +560,13 @@ Person <person@mail.org> writes:
> Stuff > Stuff
#+end_example #+end_example
So here I modifiy the citation function to insert the signature like in the second example for certain cases. So here I modifiy the citation function to insert the signature like in the second example for +certain cases+.
Edit <2022-10-27 Thu>: for consistency's sake, I'll make the signature on the top for all cases.
FIrst, determine whether it is necessary to do so:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq my/message-signature-on-top '("@etu.ru"))
(defun my/message-insert-signature-need-on-top () (defun my/message-insert-signature-need-on-top ()
(let ((parts (split-string t)
(string-join
(list
(message-fetch-field "to")
(message-fetch-field "cc")
(message-fetch-field "bcc"))
", ")
", ")))
(and
(seq-some
(lambda (rule)
(seq-some
(lambda (part)
(string-match-p rule part))
parts))
my/message-signature-on-top)
t)))
#+end_src #+end_src
Then advice the =notmuch-mua-reply= function: Then advice the =notmuch-mua-reply= function: