marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update && include --email

Browse source
This commit is contained in:
Marcus Kammer 2023-01-31 16:25:55 +01:00
parent d82adc16d2
commit 6aee832cfe
2 changed files with 25 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
bundle/bundle--email.el
View file

@ -1,3 +1,15 @@
(setq mail-host-address "mailbox.org"
user-full-name "Marcus Kammer"
user-mail-address "marcus.kammer@mailbox.org"
message-send-mail-function 'smtpmail-send-it
smtpmail-smtp-server "smtp.mailbox.org"
smtpmail-smtp-service 465
smtpmail-stream-type 'tls
message-send-mail-function 'smtpmail-send-it)
(when (eq system-type 'gnu/linux)
(setq smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")))
(when (eq system-type 'gnu/linux) (when (eq system-type 'gnu/linux)
(use-package mu4e (use-package mu4e
:ensure nil :ensure nil
@ -22,29 +34,18 @@
(mu4e-headers-trashed-mark '("T" . "🗑️")) (mu4e-headers-trashed-mark '("T" . "🗑️"))
(mu4e-headers-attach-mark '("a" . "📎 ")) (mu4e-headers-attach-mark '("a" . "📎 "))
(mu4e-headers-encrypted-mark '("x" . "🔑 ")) (mu4e-headers-encrypted-mark '("x" . "🔑 "))
(mu4e-headers-signed-mark '("s" . "🖊 "))) (mu4e-headers-signed-mark '("s" . "🖊 "))))
(use-package smtpmail ;; (setq mml-secure-openpgp-signers '("86DB0F30F9F1661A54E21664C374817BE285268F"))
:ensure nil ;; (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)
:defer t
:custom
(message-send-mail-function 'smtpmail-send-it)
(smtpmail-smtp-server "smtp.mailbox.org")
(smtpmail-smtp-service 465)
(smtpmail-stream-type 'tls)
(message-send-mail-function 'smtpmail-send-it)
(smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")))
;; (setq mml-secure-openpgp-signers '("86DB0F30F9F1661A54E21664C374817BE285268F")) (defun mk/sign-email ()
;; (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime) ;; Sign an Email using the key of the sender.
(interactive)
(setq mml-secure-openpgp-sign-with-sender t)
(mml-secure-message-sign-pgp))
(defun mk/sign-email () (defun mk/encrypt-email ()
;; Sign an Email using the key of the sender. ;; Encrypt an Email using the key of the recipient.
(interactive) (interactive)
(setq mml-secure-openpgp-sign-with-sender t) (mml-secure-message-encrypt-pgp))
(mml-secure-message-sign-pgp))
(defun mk/encrypt-email ()
;; Encrypt an Email using the key of the recipient.
(interactive)
(mml-secure-message-encrypt-pgp)))

1
init.el
View file

@ -2,6 +2,7 @@
(load "bundle--defaults") (load "bundle--defaults")
(load "bundle--encoding") (load "bundle--encoding")
(load "bundle--holidays") (load "bundle--holidays")
(load "bundle--email")
(load "bundle--server") (load "bundle--server")
(load "bundle--package") (load "bundle--package")
(load "bundle--org") (load "bundle--org")