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

(require 'auth-source)
(require 'mail-source)
(require 'smtpmail)

(let*((send-from-zoho nil)
      (username      "moasenwood")
      (domain        "zoho.eu")
      (local-domain  (format      "%s" domain))
      (pop-server    (format  "pop.%s" domain))
      (smtp-server   (format "smtp.%s" domain))
      (smtp-port     587) ;; 25 plain, 465 TLS/SSL, 587 starttls
      (user-mail-address-zoho (format "%s@%s" username local-domain)) )

  ;; SMTP
  (when send-from-zoho
    (setq smtpmail-default-smtp-server smtp-server)
    (setq smtpmail-local-domain        local-domain)
    (setq smtpmail-smtp-server         smtp-server)
    (setq smtpmail-smtp-service        smtp-port)
    (setq smtpmail-stream-type        'starttls)
    (setq user-mail-address user-mail-address-zoho) )

  ;; POP
  (setq mail-sources
    `((pop :user     ,user-mail-address-zoho
           :password ,(auth-source-pick-first-password :host "smtp.zoho.eu")
           :server   ,pop-server
           :port     995
           :stream   ssl) )))

(provide 'mail-zoho)