(require 'super)
(require 'scroll)
(require 'gnus-sum)
(require 'gnus-msg)
(require 'group)
(require 'smtpmail)

(setq mail-source-delete-incoming t)

(setq mm-body-charset-encoding-alist '((utf-8 . 8bit)))

;; added Sv: to the default regexp in (TODO: Se: and Rv: also added!)
;;     /usr/share/emacs/24.4/lisp/gnus/message.el
(setq message-subject-re-regexp
      "^[ \t]*\\([SsRr][VvEe]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*")

;; sent messages
(setq gnus-gcc-mark-as-read t)
(setq gnus-message-archive-group "nnml:mail.sent")

;; nnmail-cahce
(setq nnmail-message-id-cache-file "~/Mail/nnmail-cache")
(setq nnmail-message-id-cache-length 5000)

(setq nnmail-split-methods
      '(
        ("blogomatic"  "Subject: \\[blogomatic\\]")
        ("mail.ml-ooa" "\\(To\\|Cc\\):.*\\(emacs-w3m@namazu.org\\|help-gnu-emacs@gnu.org\\|gnuplot-info@lists.sourceforge.net\\)")
        ("mail.misc"   "")) )

;; misc
(setq mail-user-agent                  'gnus-user-agent)
(setq message-send-mail-function      #'smtpmail-send-it)
(setq read-mail-command               #'gnus)
(setq message-forward-ignored-headers ".*")

;; accounts (SMTP, POP, etc.)
(defvar *mail-password*)
(defvar *other-password*)
(load "../../passwords.el")

(require 'starttls)

(let*((username      "embe8573")
      (mail-name     username)
      (domain        "uu.se")
      (local-domain  (format "student.%s" domain))
      (pop-server    (format     "pop.%s" domain))
      (smtp-server   (format    "smtp.%s" domain))
      (smtp-port     587) )

  ;; SMTP
  (setq smtpmail-local-domain        local-domain)
  (setq smtpmail-smtp-service        smtp-port)
  (setq smtpmail-smtp-server         smtp-server)
  (setq smtpmail-default-smtp-server smtp-server)

  ;; TLS
  (setq starttls-use-gnutls t)

  ;; POP
  (setq mail-sources `((pop :server    ,pop-server
                            :user      ,username
                            :password  ,*mail-password*) ))

  ;; the user
  (setq user-full-name "Emanuel Berg")
  (setq user-mail-address (format "%s@%s" mail-name local-domain))
)

(provide 'mail)