;; -*- mode: emacs-lisp; coding: iso-latin-9; -*- ;; Time-stamp: <27/12/2008 21:37 seki@obelix.seki.fr> ;;+----------------------------------------------------------+ ;;| | ;;| Seki's dotgnus | ;;| | ;;+----------------------------------------------------------+ ;; Merci à Nicolas Bareil <nbareil@mouarf.org> ;; à Mathieu Roy <yeupou@gnu.org> ;; et aux différentes listes et newsgroups d'entraide d'utilisateurs : ;; fr.comp.applications.emacs ;; gnu.emacs.help ;; voir ici pour les listes : http://savannah.gnu.org/mail/?group_id=40 ;; ====== Réglages validés ================================= ;; dossiers ;(setq gnus-home-directory "~/.gnus.d") ;(setq message-directory "~/.gnus.d/Mail") ;(setq gnus-directory "~/.gnus.d/News") ;(setq gnus-agent-directory "~/.gnus.d/agent") ;;----- identité -------------------------------------------- (setq user-full-name "Sébastien Kirche") ;; l'adresse mail DOIT être valide pour l'envoi SMTP (indiqué dans l'enveloppe) ;;(setq user-mail-address "sebastien.kirche@free.fr") (setq user-mail-address "seki@seki.fr") ;; mes autre adresses : en répondant à un message permet de réutiliser l'adresse du To:/From:/CC: de ce message (setq message-alternative-emails (regexp-opt (cons user-mail-address '("seki@laposte.net" "sebastien.kirche@free.fr" "sebastien.kirche@laposte.net" "sebastien.kirche@gmail.com" "sebastien.kirche.no@spam.free.fr.invalid" "skirche@conceptware.lu" )))) ;; mes addresses sont à supprimer dans les wide-reply (setq message-dont-reply-to-names message-alternative-emails) ;; afficher les noms des destinataires à la place du mien pour les messages que j'ai envoyés (setq gnus-ignored-from-addresses "S\\(e\\|\x8e9\\|\xf69\\)bastien Kirche") ;; 8e9 = é latin-1 / f69 = é latin-9 ;; si on veut bidouiller l'adresse pour le MAIL, utiliser la ligne suivante ;;(setq smtpmail-mail-address "sebastien.kirche.no@spam.free.fr.invalid") ;; pour bidouiller l'adresse pour les NEWS, voir le champ From: dans les posting styles (setq message-user-organization "Aucune.") ;; ma x-face (defvar sk:x-face (concat " ;T}O6aj2o*d:|9po%NCuYvExN3]<#cHr0\"FaWCh[}WVn6&@L)YWO'&6AO5Ex:MX=H;.^e}o" " Td*OaFQEBc_xu%+ChwRl!KK`I'[\"$^aO1gIN{4OyBdO@1HHD5YO#[kiVCk|/-|mmYnU8yTp+eOv.\"d" " 1.G3;ro0Q/`,UY+vY/#5b/{OYxE+X\\)tc~p~1vbmZ!o4sciW+e8MW|Pz|nl`l*}]8[#1zQO\"]d2*{d" " wrTKu]5t<lBGxO->*Gy_pm3e8o=:(c_ju'zlQ<[oJ|\\XjgQQmWZC7S]-Fmp\\eBHnBO']/te~/;\\@l\"" " D#:h)8Q") ":^)") ;;----- réglages des sources (select methods) et des envois --------------- ;; Mode par défaut : gnus-agent ;(setq gnus-agent t) ;plus nécessaire en 21.3.50 ? (setq gnus-agent nil gnus-agent-cache nil) ;;serveur news principal (setq gnus-select-method '(nnnil "" ;;nntp "news.free.fr" ;;(nntp-authinfo-user "sebastien.kirche") ;;(nntp-authinfo-password "xxxxxx") )) ;; on peut créer un .authinfo sur le modèle : ;;machine foo.bar.com login your_username password your_pass ;; qui peut être (si accès anonyme possible et pb de liste de groupes) ;;machine foo.bar.com login your_username password your_pass force yes ;;et ;;machine localhost login foo password bar ;;serveur(s) secondaires ;;(add-to-list 'gnus-secondary-select-methods '(nntp "autre.serveur.de.news")) ;; serveur mail ;;voir les backends dispo (1 fichier/serveur 1 fichier/groupe ou 1 fichier/msg) ;;(add-to-list 'gnus-secondary-select-methods '(nnml "") ;;(setq mail-sources ;; '((pop :server "pop.fai.org" ;; :user "moi" ;; :password "pwd"))) (cond ((or (string-match "\\`obelix" system-name) (string-match "\\`petisuix" system-name) ) (progn ;;(setq mail-sources ;; (list '(directory ;; :path "~/.Mail/" ;; :suffix "" ;; )) ;; ) ;; (setq mail-sources '((webmail :subtype 'yahoo ;; :user "sekki" ;; :password "xxxxxx"))) (setq gnus-secondary-select-methods `( (nnimap "falbala" (nnimap-address "falbala") (nnimap-authenticator login) (nnimap-stream ssl) ;;(nnimap-list-pattern ("INBOX")) (remove-prefix "INBOX.") (nnimap-authinfo-file "/home/seki/.authinfo") ) (nnmh "local obelix" (nnmh-directory "/home/seki/.Mail") (nnmh-get-new-mail nil) ) (nnml "archives" ;;(nnml-directory "/home/seki/.gnus.d/archives") ;;(nnml-active-file "/home/seki/.gnus.d/archives/active") (nnml-directory ,(concat gnus-home-directory "/archives")) (nnml-active-file ,(concat gnus-home-directory "/archives/active")) (nnml-inhibit-expiry t) (nnml-get-new-mail nil) ) ) ) ;;(setq imap-log t) ) ) ) ;;======= comportement du gnus ============================== ;;usage du cache ! (setq gnus-use-cache t) ; Veut plus qu'il me demande si je veut récupérer ; la dernière sauvegarde (auto-save) (setq gnus-always-read-dribble-file t ) ;; On dégage les messages en double (setq nnmail-treat-duplicates 'delete) ; Ne pas créér de fichier IncomingXXXX ;(setq mail-source-delete-incoming t) (setq gnus-read-active-file 'some) ;relit la liste des groupes depuis l'active-file (setq gnus-check-new-newsgroups 'ask-server) ;demande les nouveaux groupes au serveur ;; corrige les problèmes de mixed latin-1 / latin-9 (setq message-default-charset 'iso-8859-15 ;; ??? gnus-default-posting-charset (quote iso-8859-15) mm-body-charset-encoding-alist '((iso-8859-1 . 8bit) (iso-8859-15 . 8bit))) (add-to-list 'mm-charset-synonym-alist '(iso8859-15 . iso-8859-15)) (add-to-list 'mm-charset-synonym-alist '(iso885915 . iso-8859-15)) ;;========== réglages des GROUPES =================================== ;(setq gnus-group-line-format "%M%S%5y: %(%G%)\n") ;à tester ;; From ding@gnus.org - Larsi ;;(setq gnus-group-line-format "%M%S%p%P %3y %~(ignore 0)2U%G\n") ;; Quel article lire le premier lorsqu'on sélectionne le groupe ;; avec <SPACE> ? ;; - nil : N'affiche aucun message ;; - best : L'article le mieux scoré ;; - t : Le premier article non-lu. (setq gnus-auto-select-first 'best) ;; Scorage des groupes les plus lus (add-hook 'gnus-summary-exit-hook 'gnus-summary-bubble-group) ;; Classer les groupes en fonction de leur hits (setq gnus-group-sort-function '(gnus-group-sort-by-unread gnus-group-sort-by-rank)) ;; Mise en place des 'Topics' pour un affichage structuré des groupes ;; Introduction rapide : T n - create new topic ;; T m - move group ;; C-k - cut group and ... ;; C-y - ... insert it here ;; T C-h - Overview about the commands (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (setq gnus-topic-display-empty-topics nil ;nil = cacher les topics vides gnus-topic-indent-level 2) ;; Format d'affichage des topics ;; Format disponible dans le chapitre 2.16.1 du manuel Gnus ;;(setq gnus-topic-line-format "%i[ %n -- %A/%g]\n") (setq gnus-topic-line-format "%6v %5(%5{%7A %}%)%* %5(%5{ ==> %-31n%)%}\n" ) ;;========== SUMMARY =================================== ;;présentation des messages alignés avec indication des fils ;; l'hyperlien nom-score-taille-sujet est délimité par les %( %) (setq gnus-summary-line-format (concat "%*%5{%U%R%z%}" "%4{|%}" "%2{%-10&user-date;%}" "%4{|%}" "%2{ %}%(%-24,24f" "%4{|%}" "%2{%5i%}" "%4{|%}" "%2{%6k %}" "%4{|%}" "%2{ %}%3{%B%}%1{%s%}%)\n")) ;; affichage de la date en relatif (setq gnus-user-date-format-alist '(((gnus-seconds-today) . " %k:%M") ;dans la journée = 14:39 ((+ 86400 (gnus-seconds-today)) . "hier %k:%M") ;hier = hier 14:39 ((+ 604800 (gnus-seconds-today)) . "%a %k:%M") ;dans la semaine = sam 14:39 ((gnus-seconds-month) . "%a %d") ;ce mois = sam 28 ((gnus-seconds-year) . "%b %d") ;durant l'année = mai 28 (t . "%b %d '%y"))) ;le reste = mai 28 '05 ; Indentation des threads (setq gnus-thread-indent-level 2) ; Méthode d'identification des messages orhpelins (setq gnus-summary-gather-subject-limit 'fuzzy) ; Ne pas ouvrir les threads lors du démarrage ;(setq gnus-thread-hide-subtree t) ; Supprimer les threads au score inférieur à celui requis ;(setq gnus-thread-expunge-below t ) ; Lorsqu'on 'kill' un thread, celui-ci est caché (setq gnus-thread-hide-killed t) ; Trier les threads en fonctions du score, puis par date (setq gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)) ; Ne mettre en cache que les articles définis comme persistants ;(setq gnus-use-cache 'passive) ; Lorsqu'on sauvegarde un article, conserver tous les headers (setq gnus-save-all-headers t) ; Quel format utilisé pour l'archivage par défault ? mbox. (setq gnus-default-article-saver 'gnus-summary-save-in-mail) ; Je suis un peu mégalomane, donc je veux voir mon pseudo s'afficher en ; gras-souligné ;; (setq gnus-emphasis-alist ;; '( ;; ;; ("_\\(\\w+\\)_" 0 1 gnus-emphasis-underline) ;; ("\\*\\(\\w+\\)\\*" 0 1 gnus-emphasis-bold) ;; ("\\(nbareil\\)" 0 1 gnus-emphasis-underline-bold) ;; ("\\(offset\\)" 0 1 gnus-emphasis-underline-bold) ;; ("\\(madchat\\)" 0 1 gnus-emphasis-underline-bold) ;; ("\\(matoufou\\)" 0 1 gnus-emphasis-underline-bold) ;; )) ;;===== Quotage (de goret)=================================== ; [Format] Snip des messages (W-W-c) ; Format disponible dans le chapitre 3.16.3 du manuel Gnus (setq gnus-cited-closed-text-button-line-format "\[ Snip %n lines (%l Characters) \]\n") ; Couper les lignes trop longues ; (setq-default gnus-treat-fill-long-lines t) (setq gnus-article-strip-blank-lines t) ; Mise en couleur de la signature (setq gnus-treat-highlight-signature 'last) ; Veut pas des gorets ! ;(add-hook 'gnus-part-display-hook 'gnus-article-hide-citation-maybe) ; Remplacer la date par X-Sent (setq gnus-treat-date-lapsed 'head) ; Ne pas afficher les secondes défilées (gnus-stop-date-timer) ; Remplace l'header Date: (setq gnus-article-date-lapsed-new-header t);nil) ;; Ajouter des boutons (setq gnus-treat-buttonize t) (setq gnus-treat-buttonize-head 'head) ;; Supprimer les retours charriots (^M) (setq gnus-treat-strip-cr 'last) ; Provient du manuel Gnus (Node 3.16.7) (setq gnus-signature-separator '("^-- $" ; The standard "^-- *$" ; A common mangling "^-------*$" ; Many people just use a looong ; line of dashes. Shame! "^ *--------*$" ; Double-shame! "^________*$" ; Underscores are also popular "^========*$" "^----- Original Message -----$" )) ; Pervert! ; Ne pas inclure la signature lors d'une réponse (setq message-cite-function 'message-cite-original-without-signature) ; Supprimer les messages en double (setq gnus-suppress-duplicates t) ;; Nettoyer les messages d'un coup ;; http://my.gnus.org/node/view/94 (defun bhaak-wash-this-article () (interactive) (gnus-article-outlook-deuglify-article) (gnus-article-fill-cited-article nil '70) (gnus-article-capitalize-sentences)) (define-key gnus-summary-mode-map "\C-c\w" 'bhaak-wash-this-article) ;; ===== Messages =================================== ;;dictionnaire par défaut (setq ispell-local-dictionary "francais");plutôt ispell-dictionary ? ; Couper les lignes à X caractères pour rédiger (require 'filladapt) (defun sk-gnus-message-hook () (set-fill-column 72) (turn-on-auto-fill) (filladapt-mode) (flyspell-mode) (setq default-justification 'left) (footnote-mode) (setq footnote-spaced-footnotes nil footnote-section-tag "" footnote-style 'latin) ;;(setq-default footnote-style-number 'latin) ;;(setq footnote-spaced-footnotes nil ;;footnote-section-tag "") ;;(footnote-mode) ) (add-hook 'message-mode-hook 'sk-gnus-message-hook) ; Mes ch'tits headers ;(setq gnus-ignored-headers ".*") (setq gnus-visible-headers "^To:\\|^Reply-To:\\|^Cc:\\|^From:\\|^Date:\\|^NNTP-Posting-Date:\\|^Subject:\\|^X-Sent:\\|^X-Mailer:\\|^User-Agent:\\|^X-Newsreader:\\|^Organization:\\|^Newsgroups:\\|^Followup-to:\\|^X-Spam-Status:\\|^Approved:\\|^Message-ID:") ; Retirer les headers à dormir debout (setq gnus-boring-article-headers '(empty many-to newsgroup)) (setq gnus-treat-hide-boring-header 'head) ; Je ne veux pas de HTML, ni de richText, non mais oh ! (setq mm-discouraged-alternatives '("text/html" "text/richtext")) (setq mm-text-html-renderer 'w3m);'w3m ; Répertoire par défaut des attachements (setq gnus-summary-save-parts-last-directory "~/unread/") (setq mm-default-directory gnus-summary-save-parts-last-directory) ; Il y a des fonctions appellées en doubles, mais c'est pas grave ; du moment que ca marche ! TODO : ben justement faudra faire du ménage... (add-hook 'gnus-article-display-hook 'gnus-article-highlight) ;; cache les cles PGP ;(add-hook 'gnus-article-display-hook 'gnus-article-hide-pgp) ;; cache les headers indésirables (add-hook 'gnus-article-display-hook 'gnus-article-hide-headers-if-wanted) ;; marre des gorets (add-hook 'gnus-article-display-hook 'gnus-treat-hide-citation-maybe) ;; vire certains headers s'ils sont vides (add-hook 'gnus-article-display-hook 'gnus-article-hide-boring-headers) ;; vire le QP (add-hook 'gnus-article-display-hook 'gnus-article-de-quoted-unreadable) ;; met en valeur les *machins* et autres _trucs_ (add-hook 'gnus-article-display-hook 'gnus-article-emphasize) ;; Pour ne pas afficher les tags débiles des ML... (setq gnus-list-identifiers '("\\[spam\\]" "\\[exces\\]" "\\[ppm\\]")) ;; ne pas scroller le message si le reste n'est que quote+signature (setq gnus-article-skip-boring t) ;; Je veux mes smileys :) ;;(setq gnus-treat-display-smileys t) TODO : rajouter pour le mac (if (string-match "\\`obelix" system-name) (progn (setq gnus-treat-display-smileys t) (setq smiley-data-directory "/Applications/Emacs.app/Contents/Resources/etc/smilies"))) (add-hook 'gnus-article-display-hook 'gnus-smiley-display t) ;; Nécessite le package compface (setq gnus-treat-display-x-face 'head) ;; Afficher les liens avec lynx si on est en mode console (require 'browse-url) ;(setq browse-url-browser-function ; (if window-system 'browse-url-galeon 'browse-url-lynx-emacs)) ;; (if (string-match "\\`obelix" system-name) ;; (progn ;; (setq browse-url-browser-function (quote browse-url-galeon)) ;; (setq browse-url-galeon-arguments (quote ("-n"))))) ;(add-hook 'gnus-summary-mode-hook ; (global-set-key [w] 'gnus-article-hide-citation)) ;; décodage des parties mml ;; auteur : drkm de fr.comp.applications.emacs (when (require 'drkm-mml nil t) ;;(autoload 'drkm-mml:decode-parts "drkm-mml") (add-hook 'gnus-part-display-hook 'drkm-mml:decode-parts) (push '("nntp+news.cuq.org:fr.comp.applications.emacs" . emacs-lisp-mode) drkm-mml:group-alist) ) ;; ===== Rédaction de message =================================== ;; (defun face-insert () ;; (with-temp-buffer nil ;; (insert-file-contents "~/Gnus/xfaces/face") ;; (buffer-string))) ; Pour tout le monde (setq gnus-posting-styles '((".*" (eval (ispell-change-dictionary "english")) (signature "Sébastien Kirche") (X-Face sk:x-face) (eval (setq tc-time-format "%H:%M on %b %e %Y" ;; FIXME : format-time-string & localized names ;; fonction de LC_TIME ;; voir pour définir une fonction de mapping tc-make-attribution 'sk-tc-attribution-en))) ((message-mail-p) ;;(From "Sébastien Kirche <sebastien.kirche@free.fr>")) (From "Sébastien Kirche <seki@seki.fr>") (X-GPG-Key-ID "C89C1296") (X-GPG-Key "http://keyserver.mine.nu/pks/lookup?op=get&search=0x91486A51C89C1296") (X-GPG-Fingerprint "018A FECD F20B D90F 74E9 DB74 9148 6A51 C89C 1296") ;; (eval (let ((dico (completing-read ;; "Use new dictionary (RET for current, SPC to complete): " ;; (and (fboundp 'ispell-valid-dictionary-list) ;; (mapcar 'list (ispell-valid-dictionary-list))) ;; nil t))) ;; (ispell-change-dictionary dico))) ) ((message-news-p) ;".*" (From "Sébastien Kirche <sebastien.kirche.no@spam.free.fr.invalid>") (Reply-To "Sébastien Kirche <sebastien.kirche@free.fr>")) ("^\\(.*:\\)?fr\..*$" (eval (ispell-change-dictionary "francais")) (eval (setq tc-time-format "%e %B %Y à %H:%M" tc-make-attribution 'sk-tc-attribution-fr))) ;; ("^\\(.*:\\)?fr\.comp\.ordinosaures$" ;; (signature "Sébastien Kirche\nVisite guidée de quelques ordinos : http://sebastien.kirche.free.fr/ordinos/")) ("^\\(.*:\\)?fr\.misc\.bavardages\.linux$" (X-Face nil) (signature "Séki")) ("^\\(.*:\\)?fr\.misc\.bavardages\.dinosaures$" (Approved "seki")) ;;("^us" (eval (ispell-change-dictionary "american")) ) ) ) ;;remplacement des posting styles : gnus-alias =============================================== ;; (defalias 'message-functionp 'functionp) ;; workaround : Gnus ne définit plus message-functionp ;; (autoload 'gnus-alias-determine-identity "gnus-alias" "" t) ;; (add-hook 'message-setup-hook 'gnus-alias-determine-identity) ;; (eval-after-load "gnus-alias" ;; '(progn ;; (define-key message-mode-map (kbd "C-c i") 'gnus-alias-select-identity) ;; (setq gnus-alias-point-position 'empty-header-or-body ;; gnus-alias-unknown-identity-rule 'default ;; gnus-alias-default-identity "standard") ;; (setq gnus-alias-identity-alist '( ;; ;;identité = (ident refers from org extra body sig) ;; ("standard" nil ;; "Sébastien Kirche <seki@seki.fr>" ;; message-user-organization ;; (("X-Face" . sk:x-face)) ;; nil ;; user-full-name) ;; ("news" "standard" ;; "Sébastien Kirche <sebastien.kirche.no@spam.free.fr.invalid>" ;; nil ;; (("Reply-To" . "Sébastien Kirche <sebastien.kirche@free.fr>")) ;; nil ;; nil) ;; ("fmbl" "news" ;; nil ;; nil ;; (("X-Face" . "")) ;; nil ;; "Séki") ;; ("dinos" "news" ;; nil ;; nil ;; (("X-Face" . "") ;; ("Approved" . "seki")) ;; nil ;; nil) ;; )) ;; (setq gnus-alias-identity-rules '( ;; ("fmbl" ("Newsgroups" "fr.misc.bavardages.linux" current) "fmbl") ;; ("fmbd" ("Newsgroups" "fr.misc.bavardages.dinosaures" current) "dinos") ;; ("news défaut" ("Newsgroups" ".*" current) "news") ;; ("mail" message-mail-p "standard") ;; )) ;; )) ;(setq gnus-alias-identity-rules ; '(("Envoie un mail à toto@titi.com avec l'identité test" ; ("to" "toto@titi.com" current) "test"))) ;; (address "nbareil@mouarf.org") ;; (organization "madchat (http://www.madchat.org/)") ;; ("X-GnuPG-Key" "0x09223052") ;; ; (eval (ispell-change-dictionary "french")) ;; ;; ("Face" face-insert) ;; ) ;; ) ;; ) ;; Keep ispell from checking attachments! (add-to-list 'ispell-skip-region-alist '("^<#mml" . "^<#/mml>")) (add-to-list 'ispell-skip-region-alist '("^<#part" . "^<#/part>")) (add-to-list 'ispell-skip-region-alist '("^<#secure" . ">$")) (add-to-list 'ispell-skip-region-alist '("^>" . "$")) ; (add-to-list 'ispell-skip-region-alist '("^--.*--")) (add-to-list 'ispell-skip-region-alist '("--text follows this line--")) ;; ne marche pas pas comme je veux : check seulement à l'envoi :( ;; (setq ispell-message-dictionary-alist ;; '( ;; (".*" . "english") ;; ("^Newsgroups:[ \t]*fr\\.*" . "francais") ;; )) ;(add-hook 'message-setup-hook 'fortune-to-signature) ;(setq message-default-mail-headers "Gcc: INBOX.Sent\n") ;(setq message-default-news-headers "Gcc: INBOX.Sent\n") ; colorier le buffer de réponse utilisé le hook ; gnus-message-setup-hook n'est documenté que dans gnus-msg.el ; comme quoi, il faut lire les sources parfois (From Nicolas Chuche) (add-hook 'gnus-message-setup-hook 'font-lock-fontify-buffer) ; Ne pas conserver les buffers de message (setq message-kill-buffer-on-exit t) ;; Afficher le From avec des <> ;parenthèses (setq message-from-style 'angles);'parens) ;; supprimer le (was: ...) dans le sujet ? (setq message-strip-subject-was 'ask) ;; Ne pas sauter à la ligne après les caractères insecables ;; ou après certaines ponctuations. ;; Par Damien Wyart sur fr.comp.application.emacs ;; (defun my-fill-nobreak-predicate () ;; (save-match-data ;; (or (looking-at "[ \t]*[])}»!?;:]") ;; (save-excursion ;; (skip-chars-backward " \t") ;; (backward-char 1) ;; (looking-at "[([{«]"))))) ;; (add-hook 'message-mode-hook ;; '(lambda () ;; (setq fill-nobreak-predicate ;; #'my-fill-nobreak-predicate))) ;;(add-hook 'message-mode-hook 'iso-accents-mode) ; Non ! (cf f.c.a.emacs) ;; Contenu du User-Agent ;(setq gnus-user-agent '(emacs gnus config)) ;; défaut = '(emacs gnus type) (setq gnus-user-agent '(emacs gnus config)) ;; évite de justifier le champ User-Agent (add-to-list 'message-field-fillers '(User-Agent ignore)) ;;on n'ajoute pas de champ Cancel-Lock: (setq message-insert-canlock nil) ;;===== Scoring =================================== (setq gnus-use-scoring t) ; Répertoire courant pour les fichier de scoring ;(setq gnus-kill-files-directory "~/.gnus.d/etc/score/") ; Suffixe employé pour les fichiers (setq gnus-score-file-suffix "Score") ; Score par défault (setq gnus-summary-default-score 0) ; Ne pas afficher le message, si le score < 500 (setq gnus-summary-expunge-below -499) ; Méthode pour trouver le fichier Scorefile (setq gnus-score-find-score-files-function 'gnus-score-find-bnews) ; Adaptive scoring (setq gnus-use-adaptive-scoring t);nil (defvar gnus-default-adaptive-score-alist '((gnus-unread-mark) (gnus-ticked-mark (from 4)) (gnus-dormant-mark (from 5)) (gnus-del-mark (from -4) (subject -1)) (gnus-read-mark (from 4) (subject 2)) (gnus-expirable-mark (from -1) (subject -1)) (gnus-killed-mark (from -1) (subject -3)) (gnus-kill-file-mark) (gnus-ancient-mark) (gnus-low-score-mark) (gnus-catchup-mark (from -1) (subject -1)))) ;; Scoring sur mes headers. ;; Nécessite de regenerer la base NOV (setq gnus-extra-headers '(To Cc Newsgroups Keywords) nnmail-extra-headers gnus-extra-headers) ;; Scorer les réponses à mes messages (add-hook 'message-sent-hook 'gnus-score-followup-article) (add-hook 'message-sent-hook 'gnus-score-followup-thread) ;;===== Divers =================================== ;;archivage de mes messages / posts (setq gnus-gcc-mark-as-read t) (setq gnus-message-archive-method '(nnml "archives" (nnml-directory "/home/seki/.gnus.d/archives") (nnml-active-file "/home/seki/.gnus.d/archives/active") ;;(nnml-directory (expand-file-name "~/.gnus.d/archives")) ;;(nnml-active-file (expand-file-name "~/.gnus.d/archives/active")) (nnml-inhibit-expiry t) (nnml-get-new-mail nil))) (setq gnus-message-archive-group '((if (message-news-p) (concat "nnml+archives:News-sent." (format-time-string "%Y-%m")) (concat "nnml+archives:Mail-sent." (format-time-string "%Y-%m")) ))) ;; Lorsqu'un article n'est plus disponible dans le serveur NNTP, on utilise ;; google.com ;; Message-id : <m3wurdqusg.fsf@fermat.mts.jhu.edu> ;; This snippet comes from the info docs Gnus->Finding the Parent. (setq gnus-refer-article-method '(current (nntp "news.gmane.org") (nnweb "google" (nnweb-type google)))) (when (cond ((executable-find "curl") (setq mm-url-arguments `("--silent" ;; ,(concat "-A\" Mozilla/5.0 (Windows; U; Windows NT 5.0; " ;; "en-US; rv:1.3a) Gecko/20021207 Phoenix/0.5\" ") ;; "-e http://groups.google.com/advanced_search" "-A mm-url" "-L" ) mm-url-program "curl")) ((executable-find "wget") (setq mm-url-arguments `("--quiet" ;; ,(concat "-U=\"Mozilla/5.0 (Windows; U; Windows NT 5.0; " ;; "en-US; rv:1.3a) Gecko/20021207 Phoenix/0.5\"") "-U mm-url" ) mm-url-program "wget")) ) (setq mm-url-use-external t)) ; Niveau de verbosité (setq gnus-verbose 42 gnus-verbose-backends 42) (setq message-interactive t) ;; supprimer rapidement un thread (defun cg-gnus-summary-ignore-thread () (interactive) (let* ((hdr (gnus-summary-article-header)) (subj (aref hdr 1))) (gnus-summary-score-entry "Subject" subj 'S' -1000 (current-time-string)) ; (gnus-summary-limit-to-unread) ; (gnus-summary-scroll-up 0) )) (define-key gnus-summary-mode-map "i" 'cg-gnus-summary-ignore-thread) ;; -*-*-*-*-*-{ trivial cite }-*-*-*-*-*-*- ;; ( http://shasta.cs.uiuc.edu/~lrclause/tc.html ) (autoload 'trivial-cite "tc" t t) (setq message-cite-function 'trivial-cite) ;; we want a space after the citation-char '>' ;(setq tc-citation-string "> ") (setq tc-citation-string "> ") ;; we want to toggle with S-mouse-2 (tc-unfill-paragraph) the auto. filled ;; paragraphes (they are highlighted if you move the mouse over it) (setq tc-mouse-overlays t) ;; This can avoid the "malformed field" error (setq tc-gnus-nntp-header-hack t) ;; customize the attribution ;(setq tc-make-attribution 'tc-fancy-attribution) ;; phrase d'introduction custom -> modifié : utilise trivial-cite ;;(defun message-insert-citation-line () ;; "La fonction qui insere une ligne aux reponses" ;; (when message-reply-headers ;; ;; In savannah-hackers group, we talk english ;; (if (string-equal gnus-newsgroup-name "savannah-hackers") ;; (insert (mail-header-from message-reply-headers) " said:\n\n") ;; (insert (mail-header-from message-reply-headers) " a tapoté :\n\n") ;; ))) ;(setq mail-extr-ignore-single-names nil) ;permet de considérer un real-name d'un seul mot (add-hook 'mail-citation-hook 'trivial-cite) ;aussi pour le mail (setq tc-debug-level 1 mail-extr-ignore-single-names nil mail-extr-ignore-realname-equals-mailbox-name nil tc-normal-citemarks ">|:" tc-fill-long-lines 't ;;tc-time-format "%e %B %Y à %H:%m" ;;tc-make-attribution 'sk-tc-attribution ) ; tc-make-attribution 'tc-fancy-attribution ; tc-groups-functions '(("alt.sysadmin.recovery" . nix-tc-bofh-group-attribution) ; ("bofh." . nix-tc-bofh-group-attribution)) (defun sk-tc-attribution-fr () "Générer l'attribution." (let ((style (random 4)) (date (cdr (assoc "date" tc-strings-list))) (email (cdr (assoc "email-addr" tc-strings-list))) (name (cdr (assoc "real-name" tc-strings-list)))) (cond ((= style 0) (concat "Le " date ", " (or name email) " a dit :\n\n")) ((= style 1) (concat "Le " date ", " (or name email) " s'est exprimé ainsi :\n\n")) ((= style 2) (concat "Le " date ", " (or name email) " vraute :\n\n")) ((= style 3) (concat "Le " date ", " (or name email) " a formulé :\n\n")) (t (concat "Le " date ", " (or name email) " écrivit :\n\n"))))) (defun sk-tc-attribution-en () "Générer l'attribution." (let ((style (random 1)) (date (cdr (assoc "date" tc-strings-list))) (email (cdr (assoc "email-addr" tc-strings-list))) (name (cdr (assoc "real-name" tc-strings-list)))) (cond ((= style 0) (concat "At " date ", " (or name email) " said :\n\n")) (t (concat "At " date ", " (or name email) " wrote :\n\n"))))) ;; ====== Zone expérimentale ================================ ;comment envoyer les msg (setq send-mail-function 'smtpmail-send-it) (setq message-send-mail-function 'smtpmail-send-it) (cond ((string-match "\\`goudurix" system-name) ;;(setq smtpmail-smtp-server "172.16.0.59") (setq smtpmail-smtp-server "172.16.8.31")) ((or (string-match "\\`zebigbos" system-name) (string-match "\\`obelix" system-name) (string-match "\\`petisuix" system-name) ) (setq smtpmail-smtp-server "falbala")) ;;((or (equal system-name "idefix")(equal system-name "obelix")) ((equal system-name "idefix") (setq smtpmail-smtp-server "smtp.free.fr" ;;smtpmail-local-domain "free.fr" ;;smtpmail-sendto-domain "free.fr" ;;smtpmail-smtp-service 25 smtpmail-smtp-service "smtp" smtpmail-debug-info t ; only to debug problems smtpmail-debug-verb t ;;smtpmail-auth-login-username "sebastien.kirche" ;;smtpmail-auth-credentials '(("smtp.free.fr" 25 "sebastien.kirche" "xxxxxx")) ))) ;; (setq smtpmail-smtp-server "smtp.laposte.net" ;; ;smtpmail-local-domain "free.fr" ;; ;smtpmail-sendto-domain "free.fr" ;; ;smtpmail-smtp-service 25 ;; smtpmail-smtp-service "smtp" ;; smtpmail-debug-info t ; only to debug problems ;; smtpmail-debug-verb t ;; ;smtpmail-auth-login-username "sebastien.kirche" ;; smtpmail-auth-credentials '(("smtp.laposte.net" 25 "sebastien.kirche" "xxxxxx")) ;; ) ;(setq smtp-default-server smtpmail-default-smtp-server) ;(setq smtp-server smtpmail-default-smtp-server) (setq smtp-service "smtp") ;(setq smtp-local-domain "free.fr") ;(setq smtp-debug-info t) (autoload 'smtpmail-send-it "smtpmail") ;;(setq user-full-name "YOUR NAME HERE") ;; To queue mail, set smtpmail-queue-mail to t and use ;; smtpmail-send-queued-mail to send. ;; ;(setq gnus-secondary-select-methods ;; (setq gnus-secondary-select-methods ;; '((nnimap "metz-exchange" ;; (nnimap-server-port 143) ;; (nnimap-address "metz-exchange") ;; (nnimap-expunge-on-close never)) ;; (nnml ""))) ;; (setq mail-sources ;; '((file :path "~/gnusspool"))) ;; (setq nnmail-split-methods ;; '(("localhost" ""))) ;; (setq mm-discouraged-alternatives ;; '("text/html" "text/richtext")) ;; (setq nnimap-split-predicate ;; '("UNDELETED")) ;--------- ;; (setq gnus-secondary-select-methods ;; '((nnimap "metz-exchange") ;; ) ;; imap-username "SAGE_METZ/seki" ;; ) ; ;(setq gnus-secondary-select-methods ; ;; slashdot ; '((nnslashdot "") ; ;; exchange server ; (nnimap "Exchange" ; (nnimap-address "metz-exchange") ; (imap-username "SAGE_METZ/seki/seki")))) ; ;(setq gnus-select-method (quote (nntp "news.free.fr"))) ;affichage des anciens message lus (assez pour afficher les threads) (setq gnus-fetch-old-headers nil) ;'some) ;; On garde les threads en un seul morceau meme si le sujet change ;(setq gnus-gather-loose-threads t) ;??? (setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject) ;'gnus-gather-threads-by-references ;;archivage des messages (defun sk-archive-article (&optional n) "Copies one or more article(s) to a corresponding `nnml:' group, e.g. `gnus.ding' goes to `nnml:1.gnus.ding'. And `nnml:List-gnus.ding' goes to `nnml:1.List-gnus-ding'. Use process marks or mark a region in the summary buffer to archive more then one article." (interactive "P") (let ((archive-name (format "nnml:1.%s" (if (featurep 'xemacs) (replace-in-string gnus-newsgroup-name "^.*:" "") (replace-regexp-in-string "^.*:" "" gnus-newsgroup-name))))) (gnus-summary-copy-article n archive-name))) (gnus-add-configuration '(article ;;(horizontal 1.0 (vertical 25 (group 1.0)) (vertical 1.0 (summary 13 point) (article 1.0) ) )) ;) ;; (setq gnus-use-trees t ;; gnus-generate-tree-function 'gnus-generate-horizontal-tree ;; gnus-tree-minimize-window nil) ;; (gnus-add-configuration ;; '(summary ;; (horizontal 1.0 (vertical 25 (group 1.0)) ;; (vertical 1.0 (summary 1.0 point)) ;; ))) ;;(gnus-add-configuration ;; '(article ;; (horizontal 1.0 ;; (vertical 0.3 ;; (group 1.0) ;; (tree 0.3)) ;; (vertical 1.0 ;; (summary 0.3) ;; (article 1.0))))) ;; permet la saisie d'un message dans une nouvelle frame ;; (gnus-add-configuration ;; '(message (frame 1.0 ;; (if (not (buffer-live-p gnus-summary-buffer)) ;; (car (cdr (assoc 'group gnus-buffer-configuration))) ;; (car (cdr (assoc 'summary gnus-buffer-configuration)))) ;; (vertical ((user-position . t) (top . 1) (left . 1) ;; (name . "Message")) ;; (message 1.0 point))))) ; (require 'message) ; (add-to-list 'message-syntax-checks '(sender . disabled)) ; (setq gnus-posting-styles ; '((".*" ;(name "moi")))) ;(address "sebastien.kirchaaaaae@wanadoo.fr") ; (sender "alerim@wanadoo.fr")) ;(sender "ssss") ;) ;)); ;; (setq gnus-posting-styles ;; '((".*" ;; (signature-file "~/.signature") ;; (name "User Name") ;; ("X-Home-Page" (getenv "WWW_HOME")) ;; (organization "People's Front Against MWM")) ;; ("^rec.humor" ;; (signature my-funny-signature-randomizer)) ;; ((equal (system-name) "gnarly") ;; (signature my-quote-randomizer)) ;; ((message-news-p) ;; (signature my-news-signature)) ;; (header "From\\|To" "larsi.*org" ;; (Organization "Somewhere, Inc.")) ;; ((posting-from-work-p) ;; (signature-file "~/.work-signature") ;; (address "user@bar.foo") ;; (body "You are fired.\n\nSincerely, your boss.") ;; (organization "Important Work, Inc")) ;; ("nnml:.*" ;; (From (save-excursion ;; (set-buffer gnus-article-buffer) ;; (message-fetch-field "to")))) ;; ("^nn.+:" ;; (signature-file "~/.mail-signature")))) ;; (setq gnus-posting-styles ;; '((".*" ;; (signature ;; (format "Your Name Here\nURL: %s\nE-Mail: %s" "http://your.doma.in" user-mail-address) ;; )))) (if (or (string-match "\\`obelix" system-name) (string-match "\\`petisuix" system-name) (string-match "\\`goudurix" system-name) (string-match "\\`zebigbos" system-name)) (when window-system ;obelix (setq gnus-sum-thread-tree-root "\x490a4 ") ; "> " ;;(setq gnus-sum-thread-tree-root "\x490b3 ") ; "> " ;;(setq gnus-sum-thread-tree-root "\x4912f ") ; "> " ;;(setq gnus-sum-thread-tree-false-root "\x490f8 ") ; "> " ;;(setq gnus-sum-thread-tree-false-root "\x4912f ") ; "> " (setq gnus-sum-thread-tree-false-root "\x490a4 ") ; "> " ;;(setq gnus-sum-thread-tree-single-indent "\x4912e ") ; "" ;;(setq gnus-sum-thread-tree-single-indent "\x490b3 ") ; "" (setq gnus-sum-thread-tree-indent " ") ; " " (setq gnus-sum-thread-tree-single-indent "") ; "" ;;(setq gnus-sum-thread-tree-leaf-with-other "\x4903c\x49020\x490fb ") ; "+-> " ;;(setq gnus-sum-thread-tree-leaf-with-other "\x4903c\x49020\x490f9 ") ; "+-> " (setq gnus-sum-thread-tree-leaf-with-other "\x4903c\x49020\x4904c\x490f9 ") ; "+-> " (setq gnus-sum-thread-tree-vertical "\x49022 ") ; "| " (setq gnus-sum-thread-tree-single-leaf "\x490b0\x49020\x490f9 ")) ; "\\-> " ;;(setq gnus-sum-thread-tree-single-leaf "\x49034\x49020\x490fb ")) ; "\\-> " ;;(setq gnus-sum-thread-tree-single-leaf "\x49034\x49020\x490f9 ")) ; "\\-> " (when window-system ;autre (setq gnus-sum-thread-tree-root "> ") ; "> " (setq gnus-sum-thread-tree-false-root "> ") ; "> " (setq gnus-sum-thread-tree-single-indent "") ; "" (setq gnus-sum-thread-tree-leaf-with-other "+-> ") ; "+-> " (setq gnus-sum-thread-tree-vertical "| ") ; "| " (setq gnus-sum-thread-tree-single-leaf "`-> "))) ; "\\-> " (setq gnus-summary-same-subject "") (copy-face 'default 'mysubject) (setq gnus-face-1 'mysubject) (copy-face 'default 'mytime) (set-face-foreground 'mytime "indianred4") (setq gnus-face-2 'mytime) (copy-face 'default 'mythreads) (set-face-foreground 'mythreads "indianred4") (setq gnus-face-3 'mythreads) (copy-face 'default 'mygrey) (set-face-foreground 'mygrey "grey") (setq gnus-face-4 'mygrey) (copy-face 'default 'myblack) (set-face-foreground 'myblack "grey60") (setq gnus-face-5 'myblack) (copy-face 'default 'mybiggernumbers) (set-face-foreground 'mybiggernumbers "indianred4") (setq gnus-face-6 'mybiggernumbers) ;; test group summary ; Group-line ; See also: (gnus)Formatting Variables ; Its kinda hard to read I think, without the different faces it would ; look like this: (setq gnus-group-line-format "%4i %7U %7y %* %B%-45G\n") ; The text between the brackets will be formated with different faces: ; Between "%2{" and "%}" gnus will use gnus-face-2. Similar gnus will use ; gnus-mouse-face-1 between "%1(" and "%)". ; More Info: (gnus)Formatting Fonts ;;(setq gnus-group-line-format "%1(%1{%4i %}%)%{ %}%2(%2{%7U %}%)%{ %}%3(%3{%7y %}%)%{%* %}%4(%B%-45G%)\n" ) (setq gnus-group-line-format "%1(%1{%6i %}%)%{ %}%2(%2{%7U %}%)%{ %}%3(%3{%7y %}%)%{%* %}%4(%B%-45G%)\n" ) ; Faces to use for the group-names ("%-45G") ... ; More about that: (gnus)Group Highlighting (setq gnus-group-highlight ;; ... if the group has no unread articles, depending on the level '(((and (= level 1) (= unread 0)). my-gnus-group-line-groupname-read-face-1) ((and (= level 2) (= unread 0)). my-gnus-group-line-groupname-read-face-2) ((and (= level 3) (= unread 0)). my-gnus-group-line-groupname-read-face-3) ((and (= level 4) (= unread 0)). my-gnus-group-line-groupname-read-face-4) ;; ... if the group has unread articles, depending on the level too ((and (= level 1) (> unread 0)). my-gnus-group-line-groupname-unread-face-1) ((and (= level 2) (> unread 0)). my-gnus-group-line-groupname-unread-face-2) ((and (= level 3) (> unread 0)). my-gnus-group-line-groupname-unread-face-3) ((and (= level 4) (> unread 0)). my-gnus-group-line-groupname-unread-face-4) ;; If the group doesn't match the rules above (t . my-gnus-group-line-groupname-face))) ; Header-line (add-hook 'gnus-group-mode-hook ( lambda () (setq header-line-format " Ticked New Unread Group" ))) ;; change les citations. ;(add-hook 'gnus-part-display-hook 'sk-change-cite-mark) (require 'message) ; for message-cite-prefix-regexp (defun sk-change-cite-mark () "Change la marque de citation." (interactive) (save-excursion (let ((inhibit-point-motion-hooks t) buffer-read-only) (article-goto-body) (while (re-search-forward (concat "^" message-cite-prefix-regexp) nil t) (replace-match (make-string (length (match-string 0)) 124))) (message "")))) ;; gestion des dictionnaires ;;-----------essai 1 avec fonctions ispell---------------------------------------- ;;teste les regexps sur les entêtes du message ;; (setq ispell-message-dictionary-alist '( ;; ("^Newsgroups:[ \t]*fr\\." . "francais") ;; ("^Newsgroups:[ \t]*gnu\\." . "american") ;; (".*" . "francais") ;;défaut ;; )) ;; (add-hook 'gnus-message-setup-hook 'ispell-message) ;;-----------essai 2 code zedek---------------------------------------------------- ;; ;; code de Xavier Maillard <zedek at gno-rox dot org> ;; (gnus-define-group-parameter ;; dictionary ;; :function-document ;; "Return the dictionary used for the current group (if any)." ;; :variable-document ;; "Alist of regexps (to match group names) and default dictionary to use when composing a new message." ;; :parameter-type '(string :tag "dictionary") ;; :parameter-document "\ ;; The default dictionary to use in the group.") ;; ;;; FIXME: optimize ;; (defun gnus-setup-dictionary (group) ;; "Decide which dictionary to use for group `group`." ;; (let ((group (or group "")) ;; dictionary) ;; (setq dictionary (gnus-parameter-dictionary group)) ;; (message "Dictionary used: %s in group %s" dictionary group) ;; (when dictionary ;; (set (make-local-variable 'ispell-local-dictionary) dictionary)) ;; )) ;; (add-hook 'gnus-message-setup-hook ;gnus-select-group-hook ;; (lambda () ;; (gnus-setup-dictionary ;; (if (boundp 'gnus-newsgroup-name) ;; gnus-newsgroup-name "")) ;; (sit-for 1))) ;; ;;; EXEMPLES D UTILISATION: ;; ;; (setq gnus-parameters ;; ;; '(("" ;; ;; (dictionary . "francais")) ;; ;; ("list.debian-user-french" ;; ;; (dictionary . "francais")))) ;; (setq gnus-parameter-dictionary-alist ;; '( ;; ("\\(^fr\\|french\\|france\\).*" . "francais") ;; (".*" . "american"))) ;; ;;(Gnus-setup-dictionary "list.debian-user-french") ;;--------------essai 3 ---- alexandre de fcae-------------- ;nécessite de paramétrer les posting styles (defadvice gnus-group-mail (around prompt-for-group activate) "Always prompt for a group from which to take posting-styles." (ad-set-arg 0 t) ad-do-it) (defadvice gnus-summary-mail-other-window (around prompt-for-group activate) "Always prompt for a group from which to take posting-styles." (ad-set-arg 0 1) ad-do-it) (defadvice gnus-summary-news-other-window (around prompt-for-group activate) "Always prompt for a group to post." (ad-set-arg 0 t) ad-do-it) ;; (defadvice gnus-summary-followup (around prompt-for-group activate) ;; "Always prompt for a group from which to take posting-styles." ;; (let ((gnus-newsgroup-name (completing-read "Use group: " gnus-active-hashtb nil nil)) ;; ) ;; ad-do-it)) ;;---------------------------------------------------------- ;;modification de message-expand-name pour chercher dans eudc si défini ;;puis dans bbdb (setq message-expand-name-databases '(eudc));'(eudc bbdb)) ;; (defun message-expand-name () ;; (let ((res nil) (dbs message-expand-name-databases)) ;; (while (and dbs (null res)) ;; (let ((db (first dbs))) ;; (when (and (equal db 'eudc) ;; (boundp 'eudc-protocol)) ;; (setq res (eudc-expand-inline))) ;; (when (and (equal db 'bbdb) ;; (fboundp 'bbdb-complete-name)) ;; (setq res (bbdb-complete-name)))) ;; (setq dbs (cdr dbs))) ;; (or res (expand-abbrev)))) ;; Invocation du Démon pour màj périodique des nouveaux messages (require 'gnus-demon) (setq level 2) (defun sk-demon-notify-message () (if (> number-of-unread last-time-number-of-unread) (progn (if (> number-of-unread 0) (beep)) (message (let ((number-of-new (- number-of-unread last-time-number-of-unread))) (concat "***** " (int-to-string number-of-new) " new mail" (if (> number-of-new 1) "s" "") " received *****" (if (> number-of-unread last-time-number-of-unread) (concat " (" (int-to-string (- number-of-unread number-of-new)) " old)")) ) ) ) ) (if (= number-of-unread 0) (message "No mail") (message (concat (int-to-string number-of-unread) " old unread mail" (if (> number-of-unread 1) "s" "") )) ) ) ) (defun sk-gnus-demon-handler () (message "Checking new mail ...") (save-window-excursion (save-excursion (when (gnus-alive-p) (set-buffer gnus-group-buffer) (gnus-group-get-new-news level)))) (setq last-time-number-of-unread number-of-unread) (setq number-of-unread (gnus-group-number-of-unread-mail level)) (sk-demon-notify-message) ) (setq gnus-demon-timestep 10) (gnus-demon-add-handler 'sk-gnus-demon-handler 30 30) (gnus-demon-add-handler 'gnus-group-get-new-news 30 30) ;(gnus-demon-add-handler 'gnus-demon-scan-news 5 10) (gnus-demon-init) ;;fermeture auto de la fenêtre de composition (message-add-action 'delete-frame 'exit 'postpone 'kill) ;; Anti spam ================== (require 'spam) ;;??? (spam-initialize) ;; Processsor for splitting incoming mail ;(setq spam-use-bogofilter t) ;; Where to put incoming mail (setq spam-split-group "nnfolder:spam") ;; méthodes de détection (setq gnus-spam-autodetect-methods '( (".*" . (spam-use-blacklist ;;spam-use-BBDB ;;spam-use-bogofilter spam-use-gmane-xref)) )) ;default (setq gnus-spam-autodetect '(("^nntp\\+news\\.cuq\\.org:[^f].*" . t))) ;ou t ? ;; Declare spam and ham groups. (setq spam-junk-mailgroups nil) (setq gnus-spam-newsgroup-contents '(("^nnfolder:spam" gnus-group-spam-classification-spam) ("^nntp.*" gnus-group-spam-classification-ham))) ;; Train spam detection tools. (setq spam-process-ham-in-spam-groups t) (setq gnus-spam-process-newsgroups '( ("^nntp\\+news\\.gmane\\.org:" ((spam spam-use-gmane) ;;(spam spam-use-bogofilter) )) ("^nntp\\+news\\.cuq\\.org:" ( ;;(spam spam-use-bogofilter) ;;(ham spam-use-bogofilter) )) ;;("^nnfolder:.*" ;; ((spam spam-use-bogofilter) ;; (ham spam-use-bogofilter))))) )) ;; Move processed spam. (setq spam-move-spam-nonspam-groups-only t) (setq spam-mark-only-unseen-as-spam t) (setq gnus-spam-process-destinations '( ("^nntp\\+news\\.gmane\\.org:" "nnfolder:spam") ("^nntp\\+news\\.cuq\\.org:" "nnfolder:spam") ;;("^nnfolder:.*" "nnfolder:spam") )) ;; Move processed ham. (setq spam-mark-ham-unread-before-move-from-spam-group t) (setq gnus-ham-process-destinations '(("^nnfolder:spam" "nnfolder:reclassify"))) ;;(setq gnus-install-group-spam-parameters nil) ;; .. ;(setq spam-use-gmane-xref t) ;;(setq spam-report-gmane-use-article-number nil) ;; Don't abuse on spam report ;;(setq spam-mark-only-unseen-as-spam nil) ;;(setq spam-report-url-ping-function 'spam-report-url-ping-plain) ;;'spam-report-url-to-file) ;; Here I define general anti-spam things ;; it only say that on exiting all groups matching nnml:private.*, ;; we launch the spam processor and ham processor (using bogofilter) ;;(setq ;;gnus-spam-process-newsgroups ;;'(;;("nnml:.*" (gnus-group-spam-exit-processor-bogofilter ;; définitions à voir ;; gnus-group-ham-exit-processor-bogofilter)) ;; ) ;;gnus-spam-autodetect-methods '((".*" . (spam-use-blacklist ;;spam-use-BBDB ;; spam-use-bogofilter ;; spam-use-gmane-xref)));default ;;gnus-spam-autodetect t;'(("nntp.*" . t)) ;;spam-use-stat t ;; All messages marked as spam in these groups should go to spambox ;;gnus-spam-process-destinations '(("nnml:.*" "nnml:spambox")) ;; and ham found into the spambox should be moved to reclassify group ;;gnus-ham-process-destinations '(("nnml:spambox" "nnml:reclassify")) ;;spam-junk-mailgroups '("nnml:spambox") ;;spam-split-group "nnml:spambox") (setq gnus-parameters '(("^gmane\\..*" ;"^nntp\\+.*:gmane\\..*" (spam-autodetect-methods spam-use-gmane-xref spam-use-BBDB) (spam-autodetect . t) (spam-process '(spam spame-use-gmane)) (gnus-agent-consider-all-articles . t) (gnus-agent-enable-expiration . (quote (DISABLE))) (spam-contents gnus-group-spam-classification-ham) (agent-predicate . true) ;; and (not spam) (not old)) ) ) ) ;;paramètres Ted Zlatanov ;;((spam-autodetect-methods spam-use-blacklist spam-use-BBDB spam-use-bogofilter ;;spam-use-gmane-xref) ;; (spam-autodetect t) ;; (spam-process-destination . "nnimap+lifelogs.com:INBOX.train")) ;;problème du font-lock de message (setq gnus-emphasis-alist '(("\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(\\*\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)\\*\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus-emphasis-bold) ("\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(_\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)_\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus-emphasis-underline) ("\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(/\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)/\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus-emphasis-italic) ("\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(_/\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)/_\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus-emphasis-underline-italic) ("\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(_\\*\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)\\*_\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus-emphasis-underline-bold) ("\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(\\*/\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)/\\*\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus-emphasis-bold-italic) ("\\(\\s-\\|^\\|\\=\\|[-\"]\\|\\s(\\)\\(_\\*/\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)/\\*_\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus-emphasis-underline-bold-italic) ("\\(\\s-\\|^\\)\\(-\\(\\(\\w\\|-[^-]\\)+\\)-\\)\\(\\s-\\|[?!.,;]\\)" 2 3 gnus-emphasis-strikethru) ("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 2 3 gnus-emphasis-underline))) ;;;========== configuration GPG / PGG ============================== ;;**EC 2005-08-16 21:13 - PGG auto sign or encrypt ! (setq pgg-cache-passphrase t pgg-passphrase-cache-expiry 1800 pgg-default-user-id "seki@seki.fr" ;;<<<<----- là tu dois mettre _ton_ ID pgg-encrypt-for-me nil ;;pgg-gpg-program "/opt/local/bin/gpg" ;; vérifie que c'est juste ! pgg-query-keyserver t) (autoload 'pgg-encrypt-region "pgg" "Encrypt the current region." t) (autoload 'pgg-decrypt-region "pgg" "Decrypt the current region." t) (autoload 'pgg-sign-region "pgg" "Sign the current region." t) (autoload 'pgg-verify-region "pgg" "Verify the current region." t) (autoload 'pgg-insert-key "pgg" "Insert the ASCII armored public key." t) (autoload 'pgg-snarf-keys-region "pgg" "Import public keys in the current region." t) ;; Tells Gnus to inline the part (eval-after-load "mm-decode" '(add-to-list 'mm-inlined-types "application/pgp$")) ;; Tells Gnus how to display the part when it is requested (eval-after-load "mm-decode" '(add-to-list 'mm-inline-media-tests '("application/pgp$" mm-inline-text identity))) ;; Tell Gnus not to wait for a request, just display the thing ;; straight away. (eval-after-load "mm-decode" '(add-to-list 'mm-automatic-display "application/pgp$")) ;; But don't display the signatures, please. (eval-after-load "mm-decode" (quote (setq mm-automatic-display (remove "application/pgp-signature" mm-automatic-display)))) ;; verify GnuPG signature on incoming mail (setq mm-verify-option 'always) ;; decrypt mails on incoming mail (setq mm-decrypt-option 'always) ;; add buttons (setq gnus-buttonized-mime-types '("multipart/encrypted" "multipart/signed")) ;; Faire ensorte que tout les mails (pas news) soient encrypté si le ;; receveur à une clé publique (defun sk-securise-messages () (cond ((message-mail-p) (let ((toheader (message-fetch-field "To"))) (let ((recipient (nth 1 (mail-extract-address-components toheader nil)))) (message recipient) (cond ((and (not (null recipient)) (or (pgg-lookup-key recipient) (and (pgg-fetch-key pgg-default-keyserver-address recipient) (pgg-lookup-key recipient)) ;; we might have added some keys but not the right one ! ) ) (mml-secure-message-encrypt-pgpmime)) ;; Active ces 2 lignes si tu veux que tout tes mails soient signés ! ;; Cela permet au receveur de vérifier si le mail vient bien de toi et ;; qu'il n'a pas été modifié ... Le mail n'est toutefois pas encrypté car ;; ton interlocuteur n'a pas de clé publique connue ;;(t ;; (mml-secure-message-sign-pgpmime)) )))) ;;((message-news-p) ;; (mml-secure-message-sign-pgpmime)) )) ;; desactivé à cause du proxy (add-hook 'message-send-hook 'sk-securise-messages) ;;;========== configuration GPG / PGG ============================== ;; speed-up ! (gnus-compile) ;; Local Variables: ;; time-stamp-format: "%02d/%02m/%:y %02H:%02M %u@%s" ;; End: