;; -*- Mode: Emacs-Lisp -*- ;; Fichier .gnus ;; Fichier d'abord pris a glinux ensuite je l'ai pas mal modifie et pris ;; certaines données dans celui de citrouille. ;; Appel au serveur de News de wanadoo (setq gnus-select-method '(nntp "news.wanadoo.fr")) ;; pour la vitesse normalement. (setq gnus-read-active-file nil) (setq gnus-check-new-newsgroups nil) (setq gnus-check-bogus-newsgroups nil) ;; on veut un message de nos mails envoyes (setq gnus-message-archive-method `(nnfolder "archive" (nnfolder-directory ,(nnheader-concat message-directory "archive")) (nnfolder-active-file ,(nnheader-concat message-directory "archive/active")) (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t))) (setq gnus-message-archive-group '((if (message-news-p) "misc-news" "misc-mail"))) (setq gnus-no-groups-message "No news is good news") (setq gnus-novice-user t) (setq message-default-news-headers "Mail-Copies-To: never\n") (setq message-default-headers "Reply-To: Soliman Hindy \n") (add-hook 'gnus-article-display-hook 'gnus-article-de-quoted-unreadable) (setq gnus-local-organization "Linux Home") ;; gnus avec flyspell. ;;(add-hook 'message-mode-hook 'flyspell-mode) ;; Je lis des gros groupes, donc on ouvre automatiquement un groupe qui ;; contient moins de 400 messages (setq gnus-large-newsgroup 400) ;; bbdb ;;(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)) ;; 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"))) ;; On cree differents mailbox suivants des expressions (setq nnmail-split-methods '(("mail.kernel" "^Sender:.*owner-linux-kernel@vger.rutgers.edu") ("mail.admin" "^Sender:.*owner-linux-admin@vger.rutgers.edu") ("mail.fvwm2" "^Sender:.*owner-fvwm@hpc.uh.edu") ("mail.cd" "^Subject:.*CD") ("mail.linuxberg" "^From:.*list@linuxberg.com") ("mail.slashdot" "^From:.*slashdot@slashdot.org") ("mail.freshmeat" "^From:.*freshd@freshmeat.net") ("mail.dalinux" "^From:.*penso@linuxfr.org") ("mail.traduc" "^To:.*traduc@traduc.org") ("mail.rigoler" "^From:.*michael.dupont@musa.net") ("mail.private" ""))) ;; pour que les adresses web cites dans les messages ;; soit lu dans netscape. (setq browse-url-browser-function 'browse-url-netscape) (add-hook 'gnus-article-display-hook 'gnus-article-de-quoted-unreadable) ;; 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 (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 "red") (set-face-foreground 'gnus-header-subject-face "blue") (set-face-foreground 'gnus-header-content-face "green3")) (add-hook 'gnus-visual-mark-article-hook 'color-gnus-customization-hook) ;; colorisation syntaxique lorsqu'on repond a un mail. (add-hook 'message-mode-hook 'turn-on-font-lock) ;; Smileys... (add-hook 'gnus-article-display-hook 'gnus-smiley-display t) ;; Enfin le plus important, je lis mes mails puis hop sont "Expirable" ;; tout de suite une fois que j'ai fini. Ca evite de faire "E" sur ;; tous les messages :-) (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) ;; Et la on definit le temps des expirations (par defaut 7 jours) ;; perso je trouvais que ca faisait bcp :-) ;;(setq nnmail-expiry-wait 2) ;; Demande confirmation pour un followup vers le NG et le gars qui a poste par ;; mail. (setq gnus-auto-mail-to-author 'ask) ;; When the dang poster wants a courtesy copy, this will be ;; added to the front of it. (setq gnus-auto-mail-to-author t) (setq gnus-mail-courtesy-message "The following is also being posted to the newsgroup(s).\n\n")