;;;; Fichier .gnus
;;;; Creation   11 12 98 A Delcros
;;;; Modification 18 12 98 A Delcros
;;
;;

;;;; Appel au serveur de News de cybercable
(setq gnus-select-method '(nntp "news.cybercable.fr"))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Configuration du Big Brother Insidious   ;;
;;         Database (base d'adresse)          ;;
;; (pour utiliser bbdb il faut le recuperer    ;;
;; sur internet car il n'y est pas                ;; 
;;          par defaut                                 ;;
;; une bonne partie de la config permet    ;;
;; d'utiliser bbdb comme mail-alias          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(add-hook 'mail-setup-hook 'mail-abbrevs-setup)
;;(add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
;;(add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
;;(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
(require 'vm)
(defun bbdb-insinuate-message ()
  (define-key message-mode-map "\M-\t" 'bbdb-complete-name))
(add-hook 'message-mode-hook 'bbdb-insinuate-message)
(setq bbdb-north-american-phone-numbers-p 'nil)
   (autoload 'bbdb-define-all-aliases
       "bbdb-com" "Hook mail alias feature of BBDB into message-mode." t)
     (add-hook 'message-setup-hook 'bbdb-define-all-aliases)
     (add-hook 'message-mode-hook 'ls6-message-mode-hook-mail-aliases)
     (defun ls6-message-mode-hook-mail-aliases ()
      (define-key message-mode-map (kbd "C-c C-a")
       'mail-interactive-insert-alias))


;; ca c'est pour que bbdb remplisse tout seul ma base d'adresse.
(setq bbdb/news-auto-create-p t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Configuration pour le mail et les newgroups ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; On dit que gnus utilise une deuxieme methode 
;; (la premiere etant la recuperation des news)
;; pour recuperer les mails et les newsgroups
;; nnml est un serveur de mail virtuel utilise
;; par gnus (il peut utiliser aussi nnfolder. 
;; C'est la methode la plus efficace.
;; les mails sont recupere directement depuis
;; le mailbox systeme (/var/spool/mail/user)
;; et "splitté en un mail par fichier dans ~Mail.
;; ma configuration mail utilise donc fetchmail
;; recuperer le courrier, sendmail, procmail et gnus.
(setq gnus-secondary-select-methods '((nnml "private")))

;; nnml permet de trier les messages selon leur header.
;; ici j'ai definit deux mailbox pour la mailing list
;; linux-kernel et BugYraq
(setq nnmail-split-methods
'(("mail.kernel" "^Sender:.*owner-linux-kernel@vger.rutgers.edu")
 ("mail.BugTraq" "^Sender:.*Bugtraq List")
("mail.LinuxSecurity" "^Resent-Sender:.*linux-security-request@redhat.com")
("mail.debian-french" "^Resent-From:.*debian-french@lists.debian.org")
("mail.debian-security" "^Resent-From:.*debian-security@lists.debian.org")
("mail.debian-announce" "^Resent-From:.*debian-announce@lists.debian.org")
("mail.debian-user" "^Resent-From:.*debian-user@lists.debian.org")
("mail.parinux" "^X-Mailing-List:.*parinux@egroups.com")
 ("mail.private" "")))

;; pour que les adresses web cites dans les messages
;; soit lu dans netscape.
(setq browse-url-browser-function  'browse-url-netscape)

;; definition des couleurs de gnus (fenetre "group" et
;; fenetre "summary article"
(set-face-foreground 'gnus-group-mail-3-face "white")
(set-face-foreground 'gnus-group-mail-3-empty-face "white")
(set-face-foreground 'message-header-to-face "cadetblue3")
(set-face-foreground 'message-header-subject-face "pink")
(set-face-foreground 'gnus-summary-normal-ancient-face "white")
(set-face-foreground 'gnus-summary-normal-read-face "grey")
(set-face-foreground 'gnus-summary-high-unread-face "orange")
(set-face-foreground 'gnus-summary-normal-ticked-face "violet")
(set-face-foreground 'gnus-summary-high-ticked-face "red")
;; Pour les definitions des couleurs dans les mails je suis
;; oblige de creer une fonction qui se raccrochera a la fonction
;; de lecture des mails.

(require 'font-lock)
(defun color-gnus-customization-hook()
(set-face-foreground 'gnus-header-from-face "pink")
(set-face-foreground 'gnus-header-subject-face "orange")
(set-face-foreground 'gnus-header-content-face "green3"))
(add-hook 'gnus-visual-mark-article-hook 'color-gnus-customization-hook)

;; Tres pratique, permet de connaitre la derniere fois
;; que l'on a accede a un mailbox ou a un newsgroup
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
(setq gnus-group-line-format
        "%M\%S\%p\%P\%5y: %(%-40,40g%) %6,6~(cut 2)d\n")

;; si vous avez definit des topics (voir la doc de gnus).
;; vous apprecierez de pouvoir les voir des le lancement
;; de gnus.
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)