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

Clean up file using use-package

Browse source
This commit is contained in:
Marcus Kammer 2024-04-02 15:15:55 +02:00
parent 7e83b8902c
commit 8dcd42de8c
1 changed files with 35 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
bundle/bundle--email.el
View file

@ -53,24 +53,37 @@
;(mk/signature-time) ;(mk/signature-time)
mk/signature-gpg)) mk/signature-gpg))
(setq smtpmail-smtp-server "smtp.mailbox.org" (use-package smtpmail
smtpmail-smtp-service 465 :custom
smtpmail-stream-type 'ssl (smtpmail-smtp-server "smtp.mailbox.org")
smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")) (smtpmail-smtp-service 465)
(smtpmail-stream-type 'ssl)
(smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")))
(add-hook 'message-signature-setup-hook (lambda () (setf message-signature (mk/signature)))) (add-hook 'message-signature-setup-hook (lambda () (setf message-signature (mk/signature))))
(add-hook 'mail-send-hook #'ispell-message) ;; (add-hook 'mail-send-hook #'ispell-message)
(add-hook 'message-send-hook #'ispell-message) ;; (add-hook 'message-send-hook #'ispell-message)
(add-hook 'message-mode-hook 'turn-on-auto-fill) (add-hook 'message-mode-hook 'turn-on-auto-fill)
(setq message-directory "~/Maildir") (setq message-directory "~/Maildir")
(setq message-auto-save-directory "~/Maildir/Drafts") (setq message-auto-save-directory "~/Maildir/Drafts")
(setq message-send-mail-function 'smtpmail-send-it) (setq message-send-mail-function 'smtpmail-send-it)
(setq gnus-inhibit-startup-message t) (use-package gnus
(setq gnus-check-new-newsgroups nil) :custom
(setq gnus-select-method '(nnnil "")) (gnus-summary-line-format "%O%U%R%z%d %B%(%[%4L: %-22,22f%]%) %s\n")
(setq gnus-secondary-select-methods (gnus-summary-mode-line-format "Gnus: %p [%A / Sc:%4z] %Z")
(gnus-summary-same-subject "")
(gnus-sum-thread-tree-root "")
(gnus-sum-thread-tree-single-indent "")
(gnus-sum-thread-tree-leaf-with-other "+-> ")
(gnus-sum-thread-tree-vertical "|")
(gnus-sum-thread-tree-single-leaf "`-> ")
(gnus-large-newsgroup nil)
(gnus-inhibit-startup-message t)
(gnus-check-new-newsgroups nil)
(gnus-select-method '(nnnil ""))
(gnus-secondary-select-methods
'((nntp "news.individual.de" '((nntp "news.individual.de"
(nntp-open-connection-function nntp-open-ssl-stream) (nntp-open-connection-function nntp-open-ssl-stream)
(nntp-port-number 563) (nntp-port-number 563)
@ -81,20 +94,8 @@
(nnimap-server-port 993) (nnimap-server-port 993)
(nnimap-stream ssl) (nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo.gpg")))) (nnimap-authinfo-file "~/.authinfo.gpg"))))
:config
(add-hook 'gnus-summary-prepare-hook 'gnus-summary-sort-by-most-recent-date) (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) (when (eq system-type 'gnu/linux)
(let ((mu4e-dir (expand-file-name "/usr/share/emacs/site-lisp/mu4e/"))) (let ((mu4e-dir (expand-file-name "/usr/share/emacs/site-lisp/mu4e/")))