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

(require 'gnus)
(require 'mail-source)
(require 'message)
(require 'smtpmail)

(defun set-gnus-minimal ()
  (interactive)
  (let ((user   "moasenwood")
        (domain "zoho.eu") )
    (setq user-mail-address  (format "%s@%s" user domain))
    (setq user-full-name     "Emanuel Berg")
    (setq gnus-select-method '(nnml ""))

    (setq mail-sources `((pop :server   ,(format "pop.%s" domain)
                              :user     ,user-mail-address
                              :password ,(auth-source-pick-first-password :host "smtp.zoho.eu") )))

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

    (setq smtpmail-smtp-server (format "smtp.%s" domain)) ))

(provide 'gnus-incal-minimal)