;;; -*- Lisp -*-
;;; gnus customizations

;;
;; Fonctions utiles utilisées dans la suite
;;
(defun To (u) (concat "^\\([Cc][Cc]\\|[Tt][Oo]\\|Sender\\|Mailing-List\\|X-Loop\\):.*" u))
(defun ToMml (u) (To (concat u "@\\(mandrakesoft\\|linux-mandrake\\).com")))
(defun xloop (u) (concat "^X-Loop: " u))
(defun date (u) (concat (format-time-string "%Y%m." (current-time)) u))

;;
;; Ne pose pas de question en quittant.
;;
(setq gnus-interactive-exit 'nil)

;;
;; Renseignements sur moi
;;
(setq user-full-name "Warly"
      	user-mail-address "warly@linux-france.org"
      	message-from-style 'angles
;;      gnus-local-organization "Mandrakesoft"
)

;;
;; chemins
;;
(setq gnus-article-save-directory "~/Mail/"
      message-directory "~/Mail/"
      gnus-use-long-file-name nil)

;;
;; A la casba j'utilise pas les news pour aller plus vite.
;;
(setq 	
;;	gnus-check-new-newsgroups 	'ask-server
	gnus-check-new-newsgroups 	nil
 	gnus-save-killed-list 		nil
;; 	gnus-save-newsrc-file 		nil
	nntp-connection-timeout 	10
	nntp-command-timeout 		10
)

;;
;; truc pour gérer l'expiration des mails, mais pas concluant...
;;
;(remove-hook 'gnus-mark-article-hook
;             'gnus-summary-mark-read-and-unread-as-read)
;(add-hook 'gnus-mark-article-hook 'gnus-summary-mark-unread-as-read)

;;
;; Ne sélectionne pas le premier article dès qu'on rentre dans un groupe
;;
(setq gnus-auto-select-first nil)

(setq 
;;	nntp-rlogin-command "ssh"

;; serveur de news
;;	gnus-select-method '(nntp "news.server.yop")

	mail-sources 
		'((file :path "/home/warly/Mail/mbox"))
;; 
;; Si vous voulez faire du pop à partir d'emacs, moi j'ai un fetchmail 
;; et un procmail qui le font.
;; 		(pop :server "pop3.mailserver.com" :user "myname")
;;
;; Si vous utilisez un procmail qui sépare déja votre mail en plusieurs
;; fichiers dans un répertoire
;;
;;		'((directory :path "/home/warly/Mail/raw"
;;			     :suffix ""))
;;		'((maildir :path "/home/warly/mail/"))


;; attribut des fichiers créer dans le répertoire de mail
;; ca doit etre de l'hexa si je ne m'abuse
;;
	mail-source-default-file-modes	384
 	
;;
;; il y a plusieurs facon de traiter le mail avec gnus, soit un fichier
;; par mail, c'est le défaut, soit un fichier par groupe, c'est ce que
;; je fais, soit un seul gros fichier.
;;
	gnus-secondary-select-methods
		'((nnfolder ""))
	nnfolder-inhibit-expiry		t

;; répertoire des news
	gnus-article-save-directory 	"~/News"

;; fichier de scores, pour donner un score aux artivles et les classer
  	gnus-kill-files-directory	"~/Mail/scores"


;; fichier ou je sauve les messages que j'envoie      
;; avec la methode, le fichier active associé (ce fichier
;; contient les infos sur les mails lus, pas lus...
	gnus-message-archive-group	'((date "sent.sent")) 

	gnus-message-archive-method
		'(nnfolder "archive"
          		'((nnfolder-directory (format-time-string "~/Mail" (current-time))))
          		(nnfolder-active-file "~/Mail/sent.active")
          		(nnfolder-get-new-mail nil)
;          		(nnfolder-inhibit-expiry t))
		)

;; je maîtrise pas encore vraiment le processus d'expiration
;; qui permet de detruire des mails suivant certains critères
;; après un certain temps
;	nnmail-expiry-wait 7
;	gnus-auto-expirable-newsgroups ""


;;
;; Encodage Europe de l'Ouest
;;
	message-default-charset `iso-8859-1

	gnus-group-charset-alist '(("" "iso-8859-1"))

;;
;; Comment mon mail qu'il est séparé, yo
;; pour le coup c'est des trucs bidons, mais
;; l'esprit y est :)
;;
	nnmail-split-methods 
		(list
 			(list (date "mandrake.yop") (ToMml "yop"))
			(list (date "mandrake.teouaim") (ToMml "teouaim"))
			(list (date "mandrake.in") (xloop "in"))
			(list (date "mandrake.lala") (xloop "lala"))
 			(list (date "mandrake.gap") (ToMml "gap"))
			(list (date "lkml") "linux-kernel@vger")
			(list (date "devel") (ToMml "devel"))
			(list (date "parinux") "X-list: parinux")
			(list (date "debian") "debian-devel@lists.debian.org")
			(list (date "redhat") "redhat-devel-list@redhat.com")
			(list (date "lsb") "X-Loop: lsb-discuss@lists.linuxbase.org")   
			(list (date "lsb") "X-Loop: lsb-spec@lists.linuxbase.org")
			(list (date "pote") "From:.*coyotte")
			(list (date "pote") "From:.*merite")
			(list (date "pote") "From:.*Solan Ter")
			(list (date "pote") "(From : Damon Mike|From: damy)")
			(list (date "mbox") ""))

;;
;; pour voir les groupes vide du mois courant (parce que je classe
;; par mois, mais c'est chacun son truc, c'est comme les céréales le 
;; matin... Non ça ça n'a rien à voir...
	gnus-permanently-visible-groups (date "")

;;
;; en gros ça m'affiche
;; l'attribut lu ou pas lu (U), l'attribut si j'ai repondu et des trucs dans ce genre (R)
;; le score (+ pour cool, - pour pas cool), le score total du thread sur 3 colonnes (V)
;; le nombre de mail dans le thread (t), le nombre de ligne du mail (L), l'envoyeur (a),
;; et le sujet (s) du mail...
;;
     	gnus-summary-line-format "%U%R%z%3V%I%(%3t%[%3L: %-20,20a%]%) %s\n"

;; par défaut ne montre que le premier mail des threads
      	gnus-thread-hide-subtree 	t

;; classique
	gnus-signature-file 	"~/.signature"

;; iAmAHaCk3rYo
 	gnus-novice-user		nil

;; pour faire varier les champs suivant à qui on écrit
	gnus-posting-styles
	'(
	  ("mandrake"
	     (address "warly@mandrakesoft.com")
 	     (organization "Mandrakesoft")
	     (signature "coolos carlos"))
;; ça a pas l'air de marcher comme ca...
;;	  (header "From.*To" "mandrake"
;;	     (address "warly@mandrakesoft.com"))
	  )

)

;
; bbdb, une base de données pour le carnet d'adresse
;

(require 'bbdb)
(require 'bbdb-gnus)
(bbdb-insinuate-gnus)
(require 'gnus-setup)
(setq gnus-use-bbdb t)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-message)


;;
;; utilise le packages footnotes, qui permet de faire des annotations dans les mails
;;
(require 'footnote)

;;
;; gpg
;;
(load-library "mailcrypt")
(mc-setversion "gpg")