;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/gnus/mail-to-many.el

(require 'gnus-msg)
(require 'message)

(defun file-to-list ()
  (split-string
   (buffer-substring-no-properties (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)
  (insert to)
  (message-goto-subject)
  (insert subject)
  (message-goto-body)
  (insert body)
  (message-send-and-exit) )

(provide 'mail-to-many)