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

Use w3m as html renderer

Browse source
This commit is contained in:
Marcus Kammer 2023-10-12 15:24:33 +02:00
parent efa1fde85a
commit 87a815dad2
1 changed files with 43 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
bundle/bundle--email.el
View file

@ -5,6 +5,8 @@
mail-user-agent 'message-user-agent
compose-mail-user-agent-warnings nil)
(setq mm-text-html-renderer 'w3m)
(defun mk/sign-email ()
;; Sign an Email using the key of the sender.
(interactive)
@ -50,23 +52,48 @@
(defun mk/signature ()
(concat mk/signature-name (mk/signature-time) mk/signature-gpg))
(use-package smtpmail
:ensure nil
:config
(setq smtpmail-smtp-server "smtp.mailbox.org"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl
smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")))
(setq smtpmail-smtp-server "smtp.mailbox.org"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl
smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg"))
(use-package message
:ensure nil
:hook ((message-signature-setup . (lambda () (setf message-signature (mk/signature))))
(mail-send-hook . #'ispell-message)
(message-send-hook . #'ispell-message))
:custom
(message-directory "~/Maildir")
(message-auto-save-directory "~/Maildir/Drafts")
(message-send-mail-function 'smtpmail-send-it))
(add-hook 'message-signature-setup-hook (lambda () (setf message-signature (mk/signature))))
(add-hook 'mail-send-hook #'ispell-message)
(add-hook 'message-send-hook #'ispell-message)
(add-hook 'message-mode-hook 'turn-on-auto-fill)
(setq message-directory "~/Maildir")
(setq message-auto-save-directory "~/Maildir/Drafts")
(setq message-send-mail-function 'smtpmail-send-it)
(setq gnus-inhibit-startup-message t)
(setq gnus-check-new-newsgroups nil)
(setq gnus-select-method '(nnnil ""))
(setq gnus-secondary-select-methods
'((nntp "news.individual.de"
(nntp-open-connection-function nntp-open-ssl-stream)
(nntp-port-number 563)
(nntp-authinfo-file "~/.authinfo.gpg"))
(nnimap "mailbox"
(nnimap-address "imap.mailbox.org")
(nnimap-inbox "INBOX")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo.gpg"))))
(add-hook 'gnus-summary-prepare-hook 'gnus-summary-sort-by-most-recent-date)
; Summary line format strings
(setq gnus-summary-line-format "%O%U%R%z%d %B%(%[%4L: %-22,22f%]%) %s\n")
(setq gnus-summary-mode-line-format "Gnus: %p [%A / Sc:%4z] %Z")
; Threading visual appearance
(setq gnus-summary-same-subject "")
(setq gnus-sum-thread-tree-root "")
(setq gnus-sum-thread-tree-single-indent "")
(setq gnus-sum-thread-tree-leaf-with-other "+-> ")
(setq gnus-sum-thread-tree-vertical "|")
(setq gnus-sum-thread-tree-single-leaf "`-> ")
(when (eq system-type 'gnu/linux)
(use-package mu4e
@ -82,22 +109,3 @@
(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 '(nnnil ""))
(gnus-secondary-select-methods
'((nntp "news.individual.de"
(nntp-open-connection-function nntp-open-ssl-stream)
(nntp-port-number 563)
(nntp-authinfo-file "~/.authinfo.gpg"))
(nnimap "mailbox"
(nnimap-address "imap.mailbox.org")
(nnimap-inbox "INBOX")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo.gpg")))))