emacs: fix mail sending via msmtp

This commit is contained in:
Jez Cope 2021-10-21 22:21:28 +01:00
parent b0bd315952
commit 819a4ace72
1 changed files with 17 additions and 16 deletions

View File

@ -729,13 +729,9 @@ See also [[id:18709859-c3db-4d0e-a4a0-e797b58a2e07][Capture templates]]
** Mail
*** Reading
*** Accounts
#+begin_src emacs-lisp
(defun jc/make-refile-folder (msg)
(format-time-string "/main/Archives.%Y"
(mu4e-msg-field msg :date)))
(set-email-account!
"main"
`((user-full-name . "Jez Cope")
@ -745,12 +741,16 @@ See also [[id:18709859-c3db-4d0e-a4a0-e797b58a2e07][Capture templates]]
(mu4e-drafts-folder . "/main/Drafts")
(mu4e-trash-folder . "/main/Trash")
(mu4e-sent-folder . "/main/Sent")
(mu4e-refile-folder . jc/make-refile-folder)
(smtpmail-smtp-server . "mail.jeznelly.co.uk")
(smtpmail-stream-type . starttls)
(smtpmail-smtp-service . 587))
(mu4e-refile-folder . jc/make-refile-folder))
t)
#+end_src
*** Reading
#+begin_src emacs-lisp
(defun jc/make-refile-folder (msg)
(format-time-string "/main/Archives.%Y"
(mu4e-msg-field msg :date)))
(setq mu4e-split-view 'vertical
mu4e-headers-visible-columns 80
@ -818,12 +818,13 @@ See also [[id:18709859-c3db-4d0e-a4a0-e797b58a2e07][Capture templates]]
*** Sending
#+begin_src emacs-lisp
(setq sendmail-program (executable-find "msmtp")
send-mail-function #'smtpmail-send-it
message-sendmail-f-is-evil t
message-sendmail-extra-arguments '("--read-envelope-from")
message-send-mail-function #'message-send-mail-with-sendmail
mu4e-compose--org-msg-toggle-next nil)
(after! mu4e
(setq sendmail-program (executable-find "msmtp")
send-mail-function #'smtpmail-send-it
message-sendmail-f-is-evil t
message-sendmail-extra-arguments '("--read-envelope-from")
message-send-mail-function #'message-send-mail-with-sendmail
mu4e-compose--org-msg-toggle-next nil))
#+end_src
* Languages/modes