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

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

(-> '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)