emacs.d/bundle/bundle--email.el

56 lines
2.1 KiB
EmacsLisp
Raw Normal View History

2023-01-31 16:25:55 +01:00
(setq mail-host-address "mailbox.org"
user-full-name "Marcus Kammer"
user-mail-address "marcus.kammer@mailbox.org"
smtpmail-smtp-server "smtp.mailbox.org"
smtpmail-smtp-service 465
2023-02-05 11:26:01 +01:00
smtpmail-stream-type 'ssl
2023-02-07 15:51:56 +01:00
message-send-mail-function 'smtpmail-send-it
mml-default-sign-method "pgpmime"
mml-default-encrypt-method "pgpmime")
2023-01-31 16:25:55 +01:00
2023-02-07 15:51:56 +01:00
(message-send-mail-function 'message-smtpmail-send-it)
2023-02-06 16:08:14 +01:00
(setq smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg"))
2023-01-31 16:25:55 +01:00
2023-02-06 16:08:14 +01:00
(use-package mu4e
:ensure nil
:init
(setq mu4e-headers-unread-mark '("u" . "📩 ")
mu4e-headers-draft-mark '("D" . "🚧 ")
mu4e-headers-flagged-mark '("F" . "🚩 ")
mu4e-headers-new-mark '("N" . "")
mu4e-headers-passed-mark '("P" . "")
mu4e-headers-replied-mark '("R" . "")
mu4e-headers-seen-mark '("S" . " ")
mu4e-headers-trashed-mark '("T" . "🗑️")
mu4e-headers-attach-mark '("a" . "📎 ")
mu4e-headers-encrypted-mark '("x" . "🔑 ")
mu4e-headers-signed-mark '("s" . "🖊 "))
:custom
(mu4e-change-filenames-when-moving t)
(mu4e-drafts-folder "/Drafts")
(mu4e-get-mail-command "mbsync -a")
(mu4e-headers-date-format "%Y-%m-%d %H:%M")
(mu4e-refile-folder "/Archive")
(mu4e-sent-folder "/Sent")
(mu4e-trash-folder "/Trash")
(mu4e-split-view 'horizontal)
(mu4e-update-interval (* 10 60)))
2021-12-12 20:26:24 +01:00
2023-02-07 15:51:56 +01:00
(let ((signature "Cheers Marcus (Nuremberg . Germany)\nTimezone: UTC+2\nGnuPG Key: https://meta.sr.ht/~marcuskammer.pgp\nFingerprint: 86DB 0F30 F9F1 661A 54E2 1664 C374 817B E285 268F"))
(setq mu4e-compose-signature signature)
(setq message-signature signature))
2023-01-31 16:25:55 +01:00
;; (setq mml-secure-openpgp-signers '("86DB0F30F9F1661A54E21664C374817BE285268F"))
;; (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)
2021-12-24 16:21:16 +01:00
2023-01-31 16:25:55 +01:00
(defun mk/sign-email ()
;; Sign an Email using the key of the sender.
(interactive)
(setq mml-secure-openpgp-sign-with-sender t)
(mml-secure-message-sign-pgp))
2022-09-03 11:39:18 +02:00
2023-01-31 16:25:55 +01:00
(defun mk/encrypt-email ()
;; Encrypt an Email using the key of the recipient.
(interactive)
(mml-secure-message-encrypt-pgp))