Changed how emails are sent, have to check server for dkim

This commit is contained in:
Eduardo Cueto-Mendoza 2024-04-16 13:17:25 +01:00
parent 4a8a18ce39
commit bf77adab8b
2 changed files with 77 additions and 40 deletions

View File

@ -11,8 +11,8 @@ The following variables are used to tweak some of the configuration pieces for u
;; in Emacs and init.el will be generated automatically!
;; You will most likely need to adjust this font size for your system!
(defvar efs/default-font-size 200)
(defvar efs/default-variable-font-size 200)
(defvar efs/default-font-size 120)
(defvar efs/default-variable-font-size 120)
;; Make frame transparency overridable
(defvar efs/frame-transparency '(90 . 90))
@ -61,10 +61,10 @@ Emacs has a built in package manager but it doesn't make it easy to automaticall
#+begin_src emacs-lisp
; list the packages you want
(setq package-list '(package use-package auto-package-update
exec-path-from-shell org-auto-tangle
rtags cmake-ide))
;; list the packages you want
;(setq package-list '(package use-package auto-package-update
; exec-path-from-shell org-auto-tangle
; rtags cmake-ide))
;; Initialize package sources
@ -79,10 +79,10 @@ Emacs has a built in package manager but it doesn't make it easy to automaticall
(package-refresh-contents))
(package-install-selected-packages)
; install the missing packages
(dolist (package package-list)
(unless (package-installed-p package)
(package-install package)))
;; install the missing packages
;(dolist (package package-list)
;(unless (package-installed-p package)
; (package-install package)))
(require 'use-package)
;; Initialize use-package on non-Linux platforms
@ -228,26 +228,26 @@ I am using the [[https://github.com/tonsky/FiraCode][Fira Code]] and [[https://f
;((eq system-type 'darwin)
;(progn
;(
(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the fixed pitch face
(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the variable pitch face
(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular)
;(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular)
;)
;)
;)
;((eq system-type 'gnu/linux)
;(progn
;(
;(set-face-attribute 'default nil :font "Comic Code" :height efs/default-font-size)
(set-face-attribute 'default nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the fixed pitch face
;(set-face-attribute 'fixed-pitch nil :font "Comic Code" :height efs/default-font-size)
(set-face-attribute 'fixed-pitch nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the variable pitch face
;(set-face-attribute 'variable-pitch nil :font "Comic Code" :height efs/default-variable-font-size :weight 'regular)
(set-face-attribute 'variable-pitch nil :font "Comic Code Regular" :height efs/default-variable-font-size :weight 'regular)
;)
;)
@ -565,7 +565,8 @@ The =efs/org-font-setup= function configures various text faces to tweak the siz
(org-level-6 . 1.1)
(org-level-7 . 1.1)
(org-level-8 . 1.1)))
(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face)))
;(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face)))
(set-face-attribute (car face) nil :font "Comic Code" :weight 'regular :height (cdr face)))
;; Ensure that anything that should be fixed-pitch in Org files appears that way
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
@ -1457,8 +1458,8 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
(use-package mu4e
:ensure nil
:load-path "/opt/homebrew/share/emacs/site-lisp/mu4e"
:defer 20 ; Wait until 20 seconds after startup
;:load-path ""
;:defer 20 ; Wait until 20 seconds after startup
;:defer t
:config
;; Make sure that moving a message (like to Trash) causes the
@ -1477,7 +1478,7 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
(setq mu4e-drafts-folder "/Drafts")
(setq mu4e-sent-folder "/Sent")
(setq mu4e-refile-folder "/Inbox")
(setq mu4e-refile-folder "/Archive")
(setq mu4e-trash-folder "/Trash")
(setq mu4e-maildir-shortcuts
@ -1503,6 +1504,25 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
#+end_src
** Sendmail
#+begin_src emacs-lisp
(setq smtpmail-default-smtp-server "mail.unix-talk.com") ; needs to be specified before the (require)
(require 'smtpmail)
(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq user-full-name "Administrator")
(setq smtpmail-local-domain "unix-talk.com")
(setq user-mail-address (concat "admin@" smtpmail-local-domain))
(setq smtpmail-smtp-server "mail.unix-talk.com"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl
smtpmail-auth-credentials "~/.authinfo.pgp")
(setq message-send-mail-function 'smtpmail-send-it)
(auth-source-pass-enable)
#+end_src
* Applications

57
init.el
View File

@ -2,8 +2,8 @@
;; in Emacs and init.el will be generated automatically!
;; You will most likely need to adjust this font size for your system!
(defvar efs/default-font-size 200)
(defvar efs/default-variable-font-size 200)
(defvar efs/default-font-size 120)
(defvar efs/default-variable-font-size 120)
;; Make frame transparency overridable
(defvar efs/frame-transparency '(90 . 90))
@ -26,10 +26,10 @@
(add-hook 'emacs-startup-hook #'efs/display-startup-time)
; list the packages you want
(setq package-list '(package use-package auto-package-update
exec-path-from-shell org-auto-tangle
rtags cmake-ide))
;; list the packages you want
;(setq package-list '(package use-package auto-package-update
; exec-path-from-shell org-auto-tangle
; rtags cmake-ide))
;; Initialize package sources
@ -44,10 +44,10 @@
(package-refresh-contents))
(package-install-selected-packages)
; install the missing packages
(dolist (package package-list)
(unless (package-installed-p package)
(package-install package)))
;; install the missing packages
;(dolist (package package-list)
;(unless (package-installed-p package)
; (package-install package)))
(require 'use-package)
;; Initialize use-package on non-Linux platforms
@ -149,26 +149,26 @@
;((eq system-type 'darwin)
;(progn
;(
(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;(set-face-attribute 'default nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the fixed pitch face
(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;(set-face-attribute 'fixed-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-font-size)
;; Set the variable pitch face
(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular)
;(set-face-attribute 'variable-pitch nil :font "BigBlueTermPlus Nerd Font" :height efs/default-variable-font-size :weight 'regular)
;)
;)
;)
;((eq system-type 'gnu/linux)
;(progn
;(
;(set-face-attribute 'default nil :font "Comic Code" :height efs/default-font-size)
(set-face-attribute 'default nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the fixed pitch face
;(set-face-attribute 'fixed-pitch nil :font "Comic Code" :height efs/default-font-size)
(set-face-attribute 'fixed-pitch nil :font "Comic Code Regular" :height efs/default-font-size)
;; Set the variable pitch face
;(set-face-attribute 'variable-pitch nil :font "Comic Code" :height efs/default-variable-font-size :weight 'regular)
(set-face-attribute 'variable-pitch nil :font "Comic Code Regular" :height efs/default-variable-font-size :weight 'regular)
;)
;)
@ -363,7 +363,8 @@
(org-level-6 . 1.1)
(org-level-7 . 1.1)
(org-level-8 . 1.1)))
(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face)))
;(set-face-attribute (car face) nil :font "BigBlueTermPlus Nerd Font" :weight 'regular :height (cdr face)))
(set-face-attribute (car face) nil :font "Comic Code" :weight 'regular :height (cdr face)))
;; Ensure that anything that should be fixed-pitch in Org files appears that way
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
@ -851,8 +852,8 @@
(use-package mu4e
:ensure nil
:load-path "/opt/homebrew/share/emacs/site-lisp/mu4e"
:defer 20 ; Wait until 20 seconds after startup
;:load-path ""
;:defer 20 ; Wait until 20 seconds after startup
;:defer t
:config
;; Make sure that moving a message (like to Trash) causes the
@ -871,7 +872,7 @@
(setq mu4e-drafts-folder "/Drafts")
(setq mu4e-sent-folder "/Sent")
(setq mu4e-refile-folder "/Inbox")
(setq mu4e-refile-folder "/Archive")
(setq mu4e-trash-folder "/Trash")
(setq mu4e-maildir-shortcuts
@ -895,5 +896,21 @@
(mu4e t)
)
(setq smtpmail-default-smtp-server "mail.unix-talk.com") ; needs to be specified before the (require)
(require 'smtpmail)
(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq user-full-name "Administrator")
(setq smtpmail-local-domain "unix-talk.com")
(setq user-mail-address (concat "admin@" smtpmail-local-domain))
(setq smtpmail-smtp-server "mail.unix-talk.com"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl
smtpmail-auth-credentials "~/.authinfo.pgp")
(setq message-send-mail-function 'smtpmail-send-it)
(auth-source-pass-enable)
;; Make gc pauses faster by decreasing the threshold.
(setq gc-cons-threshold (* 2 1000 1000))