;;; Code:
#+end_src
-** Set a higher GC threshold during initializion
+** Set a higher GC threshold during initialization
#+begin_src emacs-lisp
(let ((normal-gc-cons-threshold (* 20 1024 1024))
(add-to-list 'package-archives
'("melpa" . "http://melpa.org/packages/"))
- (setq package-selected-packages '(academic-phrases ace-jump-mode
- ace-link affe alert all-the-icons all-the-icons-completion anzu
- auctex-latexmk beacon benchmark-init browse-at-remote
- browse-kill-ring cape corfu command-log-mode dabbrev define-word
- diff-hl diminish disable-mouse dockerfile-mode dtache elfeed
- emacsql-sqlite3 embark-consult erlang exec-path-from-shell
- expand-region flymake-swi-prolog fullframe ggtags git-blamed
- git-timemachine gitconfig-mode gitignore-mode
- gnu-elpa-keyring-update gnuplot gnuplot-mode go-mode
- graphviz-dot-mode helpful highlight-escape-sequences htmlize
- ialign keyfreq keycast iedit lin list-unicode-display
- lorem-ipsum magit-todos marginalia move-dup no-littering
- ns-auto-titlebar ob-prolog orderless org-superstar pdf-tools
- rainbow-delimiters rg smtpmail-multi tramp typit vterm vundo
- which-key whitespace-cleanup-mode hide-mode-line))
+ (setq package-selected-packages
+ '(academic-phrases ace-jump-mode ace-link affe alert
+ all-the-icons all-the-icons-completion anzu
+ auctex-latexmk beacon benchmark-init browse-at-remote
+ browse-kill-ring cape corfu command-log-mode dabbrev define-word
+ diff-hl diminish disable-mouse dockerfile-mode dtache elfeed
+ emacsql-sqlite3 embark-consult erlang exec-path-from-shell
+ expand-region flymake-swi-prolog fullframe ggtags git-blamed
+ git-timemachine gitconfig-mode gitignore-mode
+ gnu-elpa-keyring-update gnuplot gnuplot-mode go-mode
+ graphviz-dot-mode helpful highlight-escape-sequences htmlize
+ ialign keyfreq keycast iedit lin list-unicode-display
+ lorem-ipsum magit-todos marginalia move-dup no-littering
+ ns-auto-titlebar ob-prolog orderless org-superstar pdf-tools
+ rainbow-delimiters rg smtpmail-multi tramp typit vterm vundo
+ which-key whitespace-cleanup-mode hide-mode-line))
(package-initialize)
#+end_src
"My SWI-Prolog email address.")
#+end_src
-*** Sending mail from mutiple SMTP accounts
+*** Sending mail from multiple SMTP accounts
#+begin_src emacs-lisp
(defun esy/smtpmail-multi-make-accout (address server)