sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +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)
(encrypt))))
(setq my/message-signature-on-top '("@etu.ru"))
(defun my/message-insert-signature-need-on-top ()
(let ((parts (split-string
(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)))
t)
(defun my/message-maybe-fix-signature (&rest _)
(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))
#+end_src
Finally the proper notmuch settings:
And notmuch settings:
#+begin_src emacs-lisp
(use-package notmuch
;; :ensure nil
@ -560,30 +560,13 @@ Person <person@mail.org> writes:
> Stuff
#+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
(setq my/message-signature-on-top '("@etu.ru"))
(defun my/message-insert-signature-need-on-top ()
(let ((parts (split-string
(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)))
t)
#+end_src
Then advice the =notmuch-mua-reply= function: