87 lines
3.2 KiB
EmacsLisp
87 lines
3.2 KiB
EmacsLisp
(setq smtpmail-smtp-server "smtp.mailbox.org"
|
|
smtpmail-smtp-service 465
|
|
smtpmail-stream-type 'starttls
|
|
message-send-mail-function 'smtpmail-send-it
|
|
mml-default-sign-method "pgpmime"
|
|
mml-default-encrypt-method "pgpmime"
|
|
mail-user-agent 'message-user-agent
|
|
compose-mail-user-agent-warnings nil)
|
|
|
|
(setq smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg"))
|
|
|
|
;; (setq mml-secure-openpgp-signers '("86DB0F30F9F1661A54E21664C374817BE285268F"))
|
|
;; (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)
|
|
|
|
(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-pgpmime))
|
|
|
|
(defun mk/encrypt-email ()
|
|
;; Encrypt an Email using the key of the recipient.
|
|
(interactive)
|
|
(mml-secure-message-encrypt-pgpmime))
|
|
|
|
(defvar mk/signature-name
|
|
(concat "Cheers, " user-full-name " (Nuremberg . Germany)\n"))
|
|
|
|
(defvar mk/signature-gpg
|
|
"GnuPG Key: https://meta.sr.ht/~marcuskammer.pgp\nFingerprint: 86DB 0F30 F9F1 661A 54E2 1664 C374 817B E285 268F")
|
|
|
|
(defun mk/signature-time ()
|
|
(format-time-string
|
|
"Written on: %a, %d %b %Y %T %z\n"
|
|
(org-time-string-to-time
|
|
(format-time-string
|
|
(cdr org-time-stamp-formats)))))
|
|
|
|
(defun mk/signature ()
|
|
(concat mk/signature-name (mk/signature-time) mk/signature-gpg))
|
|
|
|
(use-package message
|
|
:ensure nil
|
|
:hook (message-signature-setup . (lambda () (setf message-signature (mk/signature)))))
|
|
|
|
(when (eq system-type 'gnu/linux)
|
|
(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" . "🖊 "))
|
|
:hook (mu4e-compose-pre . (lambda () (setf mu4e-compose-signature (mk/signature))))
|
|
: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))))
|
|
|
|
(use-package gnus
|
|
:ensure nil
|
|
:hook (gnus-summary-prepare . gnus-summary-sort-by-most-recent-date)
|
|
:custom
|
|
(gnus-inhibit-startup-message t)
|
|
(gnus-check-new-newsgroups nil)
|
|
(gnus-select-method '(nntp "news.individual.de"
|
|
(nntp-open-connection-function nntp-open-ssl-stream)
|
|
(nntp-port-number 563)))
|
|
:config
|
|
(add-to-list 'gnus-secondary-select-methods
|
|
'(nnimap "mailbox"
|
|
(nnimap-address "imap.mailbox.org")
|
|
(nnimap-server-port 143)
|
|
(nnimap-stream starttls))))
|