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

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

(-> 'gnus-msg)
(-> 'message)

(defun file-to-list ()
  (split-string (buf-str (point-min) (point-max)) "\n"))

(defun send-mail-to-many (tos subject body)
  (dolist (to tos) (send-mail-to to subject body)))

(defun send-mail-to (to subject body)
  (gnus-post-news 'post "")
  (message-goto-to)
  (@i to)
  (message-goto-subject)
  (@i subject)
  (message-goto-body)
  (@i body)
  (message-send-and-exit))

(<- 'mail-to-many)
;;; mail-to-many.el ends here