;;-*-Emacs-Lisp-*- ; .gnus pompé^H^H^H^H^Hinspiré de celui d'Armand Delcros, quoi qu'il ne ; reste plus grand chose du fichier d'origine. ;; Mes renseignements personnels a moi que j'ai. (setq gnus-user-from-line "arnaud@carrosse.frmug.org") (setq gnus-local-organization "Hipss canal alcoolique") (setq gnus-select-method '(nntp "news.in.glou.org")) (setq gnus-nntp-server 'nil) (setq gnus-subscribe-newsgroups-method 'gnus-subscribe-hierarchically) ;; Les boîtes à lettres de gnus. (setq nnfolder-directory "~/gnus-mail/") (setq nnfolder-active-file "~/News/nnfolder.active") (setq nnfolder-newsgroups-file "~/News/nnfolder.newsgroups") (setq nnfolder-get-new-mail t) ;; On ne récupère pas le courrier, on laisse faire procmail qui met tout ;; dans ~/mail/ ;; Les boîtes à lettres ont le même nom dans les deux répertoires. (when (string-match "5\\.[67]" gnus-version) (setq nnmail-spool-file 'procmail nnmail-procmail-suffix "" nnmail-procmail-directory "~/mail/") ;; Poster en 8 bits correct (require 'mime-setup) (add-hook 'mime/editor-mode-hook 'mime-editor/set-transfer-level-8bit)) (when (string-match "5\\.8" gnus-version) (setq mail-sources '((directory :path "~/mail/" :suffix "")))) ;; Methode secondaire: pour recuperer le courrier la ou fetchmail ;; et procmail le deposent (setq gnus-secondary-select-method '((nnml ""))) ;; Gnus demande automatiquement si je veux m'inscrire a tout nouveau groupe (setq gnus-subscribe-newsgroup-method 'gnus-subscribe-interactively) ;; Tant qu'on y est, on vire automatiquement les vieux groupes disparus (setq gnus-check-bogus-newsgroups t) ;; Gnus vérifie toutes les 2 minutes qu'il n'a pas reçu du courrier ;; marche pas ;(setq gnus-use-demon t) ;(gnus-demon-add-scanmail 2 nil) ;(gnus-demon-add-rescan 2 t) ;; Je lis des gros groupes, donc on ouvre automatiquement un groupe qui ;; contient moins de 1000 messages (setq gnus-large-newsgroup 1000) ;; On donne un bon score aux groupes les plus lus (add-hook 'gnus-summary-exit-hook 'gnus-summary-bubble-group) ;; Par defaut, les groupes sont classes par ordre alphabetique (setq gnus-group-sort-function 'gnus-group-sort-by-alphabet) ;; On separe les groupes par sujet (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) ;; On n'affiche pas les anciens articles (setq gnus-fetch-old-headers nil) ;; On vire les articles qui sont vraiment trop mauvais (setq gnus-summary-mark-below -500) (setq gnus-summary-expunge-below -1000) ;; On garde les threads en un seul morceau meme si le sujet change (setq gnus-gather-loose-threads t) ;; Les articles sauvegardés le sont dans un fichier, pas dans un ;; dossier rmail. (setq gnus-use-long-file-name '(not-save)) (setq gnus-default-article-saver 'gnus-summary-save-in-file) ;; On garde un format standard pour l'affichage du contenu des groupes (setq gnus-summary-line-format "%U%R%I%6i%(%[%4L: %-20,20n%]%) %s\n") ;; Ca, c'est le format donné par Armand Delcros pour le buffer Groups. (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") ;; Archives des messages envoyés. (setq gnus-outgoing-message-group "nnml:archive") ;; Les zoulies couleurs (setq font-lock-maximum-decoration t font-lock-background-mode 'light font-lock-maximum-size nil) (require 'font-lock) ;; Les citations sont en couleurs: (add-hook 'gnus-article-display-hook 'gnus-article-highlight-citation) (require 'gnus-cite) ;(set-face-foreground 'gnus-cite-face-1 "DarkSlateBlue") ;(set-face-foreground 'gnus-cite-face-2 "SlateBlue") ;(set-face-foreground 'gnus-cite-face-3 "SteelBlue") ;(set-face-foreground 'gnus-cite-face-4 "MediumBlue") ;(set-face-foreground 'gnus-cite-face-5 "Navy") ;; Les en-tetes interessantes: (defun gomesdv::gnus-article-display-hook () (setq gnus-visible-headers (cond ((string-equal gnus-newsgroup-name "fr.misc.bavardages.dinosaures") "^From:\\|^Organization:\\|^To:\\|^Cc:\\|^Reply-To:\\|^Subject\\|^Newsgroups\\|^Followup-To:\\|^Date:\\|^Approved:\\|^X-") ((string-equal gnus-newsgroup-name "fr.misc.bavardages.linux") "^From:\\|^Organization:\\|^To:\\|^Cc:\\|^Reply-To:\\|^Subject\\|^Newsgroups\\|^Followup-To:\\|^Date:\\|^Approved:\\|^X-") ((string-equal gnus-newsgroup-name "alt.sysadmin.recovery") "^From:\\|^Organization:\\|^To:\\|^Cc:\\|^Reply-To:\\|^Subject\\|^Newsgroups\\|^Followup-To:\\|^Date:\\|^Approved:") ((string-equal gnus-newsgroup-name "alt.tech-support.recovery") "^From:\\|^Organization:\\|^To:\\|^Cc:\\|^Reply-To:\\|^Subject\\|^Newsgroups\\|^Followup-To:\\|^Date:\\|^Approved:") ((string-equal gnus-newsgroup-name "fr.usenet.forums.evolution") "^From:\\|^Organization:\\|^To:\\|^Cc:\\|^Reply-To:\\|^Subject\\|^Newsgroups\\|^Followup-To:\\|^Date:\\|^X-Troll:") ((string-equal gnus-newsgroup-name "control.cancel") ".*") (t "^From:\\|^Organization:\\|^To:\\|^Cc:\\|^Reply-To:\\|^Subject\\|^Newsgroups\\|^Followup-To:\\|^Date:")))) (add-hook 'gnus-article-display-hook 'gomesdv::gnus-article-display-hook) ;; Celles qu'on n'affiche pas sauf si elles ont un interet quelconque (setq gnus-boring-article-headers '(empty followup-to)) ;; Si j'ai bien tout compris à la config de Soliman, on peut ignorer ;; certains types MIME. Bonne idée! (setq gnus-ignored-mime-types '("text/x-vcard" "text/html")) ;; On en profite pour décoder les saletées en QP (add-hook 'gnus-article-display-hook 'gnus-article-de-quoted-unreadable) ;; Prévoir aussi le Rot13 (global-set-key [f12] 'gnus-summary-caesar-message) ;; Posting styles ; Pour changer les en-têtes, signature et autres suivant l'endroit où ; on poste. (setq gnus-posting-styles '((".*" (signature-file "~/.sigs/default")) ("fr.usenet.*" (signature-file "~/.sigs/usenet-fr")) ("fr.comp.os.linux.debats" ("From" "Lisez les fichiers de config avant de vous en servir ")) ("europa.*" ("X-Accept-Language" "fr,en")))) ;; Pour les eventuelles copies de courtoisie (setq gnus-auto-mail-to-author 'ask) ; Pas vraiment probant :-( ;; On vire la signature quand on répond à un message (setq message-cite-function 'message-cite-original-without-signature) ;; Le MIME (setenv "MM_CHARSET" "ISO-8859-1") ; Ca sert a rien, ce truc! ;; On veut utiliser le scoring (setq gnus-use-scoring t) ;; On garde les scores tant qu'ils servent a quelque chose (setq gnus-update-score-entry-dates t) ;; J'aime lire les reponses a mes articles (add-hook 'message-sent-hook 'gnus-score-followup-article) (add-hook 'message-sent-hook 'gnus-score-followup-thread) ;; On zappe les scores trop faibles dans le summary buffer (setq gnus-summary-zcore-fuzz 100)