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

(require 'luki-lisp)

;; --------------------------------------------------------------------------------

(-> 'gnus)
(-> 'gnus-msg)
(-> 'mail-source)
(-> 'mm-decode)
(-> 'nnmail)
(-> 'simple)

;; --------------------------------------------------------------------------------

(setq mail-source-delete-incoming nil)
(setq mail-user-agent 'gnus-user-agent)
(setq message-subject-re-regexp "^[   ]*\\(\\([Rr][Ee]\\|[Ss][Vv]\\)\\(\\[[0-9]*\\]\\)*:[   ]*\\)*[  ]*" )
(setq read-mail-command #'gnus)
(setq user-full-name "Emanuel Berg")

;; --------------------------------------------------------------------------------

(setq mm-attachment-file-modes       420)
(setq mm-body-charset-encoding-alist '((utf-8 . 8bit)))
(setq mm-discouraged-alternatives    '("text/html" "text/richtext"))
(setq mm-text-html-renderer          'w3m)

;; --------------------------------------------------------------------------------

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

;; --------------------------------------------------------------------------------

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

;; --------------------------------------------------------------------------------

(setq nnmail-split-methods
 `(("mail.dataswamp" "From: Emanuel Berg <incal@dataswamp.org>")
   ("mail.ml-ooa"    "\\(To\\|Cc\\):.*\\(ding@gnus.org\\|emacs-devel@gnu.org\\|emacs-erc@gnu.org\\|emacs-orgmode@gnu.org\\|emacs-tangents@gnu.org\\|emacs-w3m@namazu.org\\|gmane-discuss@quimby.gnus.org\\|gnuplot-info@lists.sourceforge.net\\|help-gnu-emacs@gnu.org\\|tex-live@tug.org\\)")
   ("mail.misc"      "") ))

;; --------------------------------------------------------------------------------

(<- 'mail)