;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew (file-name-concat ".")       load-path :test #'string=)
(cl-pushnew (file-name-concat ".." "ll") load-path :test #'string=)
(require 'luki-lisp)

;; --------------------------------------------------------------------------------

(-> 'message)
(-> 'smtpmail)

;; --------------------------------------------------------------------------------

(setq send-mail-function #'smtpmail-send-it)
(setq message-send-mail-function send-mail-function)

;; --------------------------------------------------------------------------------

(setq smtpmail-smtp-server "localhost")
(setq smtpmail-smtp-service 2525)
(setq smtpmail-stream-type 'plain)
(setq user-mail-address (@f "%s@%s" user-login-name "dataswamp.org"))

;; --------------------------------------------------------------------------------

(<- 'mail-dataswamp)