Salut,
Je ne sais plus qui me l'avait demand� donc je le donne � tout le
monde ;-). Il s'agit de mon fichier de configuration personnelle de vm
(MUA de Emacs). Il suffit de le placer � la racine de son r�pertoire
personnel dans .vm. Bien-entendu, il est � �diter et modifier suivant
vos configuration personnnelles. Je l'ai comment� en fran�ais.
� �diter sous Emacs en lisp-mode et en couleur pour pouvoir lire
quelque chose ;-)
J'ai grapill� toutes ces informations un peu partout (/usr/doc/vm
donne les pointeurs principaux, notamment la FAQ qui n'est pas dispo
sous Debian).
Chez moi, cela fonctionne (TM) tr�s bien sous XEmacs 21.1 sous Debian
Potato avec vm 6.72.
$ cat .vm
;;
;; Nettoie les courriels � d�truire en sortant
;;
(add-hook 'vm-quit-hook 'vm-expunge-folder)
;; pour les souriards
(require 'messagexmas)
(require 'smiley)
(add-hook 'vm-select-message-hook '(lambda () (smiley-region (point-min)
(point-max))))
;;
;; signature automatique
;;
(setq mail-signature t mail-signature-file "~/.signature")
;;
;; envoie automatique en BCC
;;
(setq mail-self-blind t)
;;
;; d�codage du type mime automatique
;;
(setq vm-auto-decode-mime-messages t)
(setq vm-auto-displayed-mime-content-types t)
(setq vm-display-using-mime t)
(setq vm-auto-displayed-mime-content-types '("text" "multipart"
"message/rfc822" ))
;;
;; colorisation
;;
(require 'highlight-headers)
(setq vm-highlighted-header-face t)
(setq vm-summary-highlight-face 'bold)
;;colours
(set-face-foreground 'message-headers "darkslateblue")
(set-face-foreground 'message-header-contents "brown")
(set-face-foreground 'message-highlighted-header-contents "black")
(set-face-foreground 'message-cited-text "darkgreen")
(make-face-bold 'message-highlighted-header-contents)
(make-face-unitalic 'message-header-contents)
(setq vm-font-lock-words
'(("^Subject: \\(.*\\)$" . font-lock-reference-face)
("^From: \\(.*\\)" . font-lock-type-face)
("^[>|}].*" . font-lock-comment-face)
("^.*\\\[Click .*\\\]$" . font-lock-variable-name-face)
("\\(file\\|ftp\\|gopher\\|http\\|https\\|news\\|wais\\|www\\)://[^
\t\n\f\r\"<>|()]*[^ \t\n\f\r\"<>|.!?(){}]" . font-lock-string-face)
)
)
(defun vm-fontify ()
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(vm-font-lock-words t))
(turn-on-font-lock))
(add-hook 'vm-mode-hook
'(lambda ()
(local-set-key "r" 'vm-followup)
(vm-fontify)))
(add-hook 'vm-presentation-mode-hook
'(lambda ()
(vm-fontify)))
;;
;; archivage automatique dans les vm-folder-alist
;; destruction apr�s archivage
;;
(setq vm-auto-archive-message t)
(setq vm-delete-after-archiving t)
;;
;; Re[i]: en cas de r�ponse (NON FONCTIONNEL....)
;;
(setq vm-subject-ignored-prefix "^\\(re\\(\\[[0-9]+\\]\\)?: *\\)+")
;;
;; Re: en cas de r�ponse
;;
(setq vm-reply-subject-prefix "Re: ")
;;
;; affichage automatique des enfilades
;;
(setq-default vm-summary-show-threads t)
(setq vm-toggle-threads-display t)
;;
;; citation avec supercite
;;
;;(require 'supercite)
;;(add-hook 'mail-yank-hooks 'sc-cite-original)
;;
;; non affichage de la barre d'outils
;;
(setq vm-use-toolbar nil)
vm-auto-folder-alist;;
;; affichage de la barre d'outil
;; requiert l'affichage de la barre d'outil dans le .emacs
;;(setq vm-use-toolbar nil)
;;(setq vm-toolbar-orientation 'top)
;;
;; francisation
;;
(setq vm-forwarding-subject-format "Message retransmis de %F � %h le %w %d %m
%y")
(setq vm-included-text-attribution-format "%F �crivait:\n")
;;
;; r�pertoires: rangement automatique
;;
(setq vm-delete-after-archiving t)
(setq vm-folder-directory "~pk/Courriel/")
(setq vm-auto-folder-alist
'(("^To:" ("[email protected]" . "Debian-french"))
("^Cc:" ("[email protected]" . "Debian-french"))
("^To:" ("[email protected]" . "Debian-traductions"))
("^Cc:" ("[email protected]" . "Debian-traductions"))
("^To:" ("[EMAIL PROTECTED]" . "Guilde"))
("^Cc:" ("[EMAIL PROTECTED]" . "Guilde"))
("^To:" ("[EMAIL PROTECTED]" . "Guilde"))
("^Cc:" ("[EMAIL PROTECTED]" . "Guilde"))))
;;
;; ne pas citer la signature dans le reply-to
;;
;; Authors: Edwin Huffstutler <[EMAIL PROTECTED]> & John Reynolds <[EMAIL
PROTECTED]>
;; Date: 3/17/97
(defun citation-yank-kill-sig () "Nuke a .sig from cited mail"
(interactive)
(end-of-buffer)
(search-backward-regexp "^-- ?$" 1 t)
(let ((end (point)))
(search-backward-regexp (concat "^" vm-included-text-prefix "-- ?$") 1 t)
(delete-region (point) end)
(insert "\n")
(insert "\n")
(insert "\n")
(previous-line 2)
)
)
(add-hook 'vm-reply-hook 'citation-yank-kill-sig)
;;
;; ouverture automatique de tous les folders int�ressants au lancement
;; (PAS FONCTIONNEL)
;;
(setq vm-visit-folder t);; "~/Courriel/Debian-french" )
--
|\ _,,,---,,_ Patrice KARATCHENTZEFF
ZZZzz /,`.-'`' -. ;-;;,_ mailto:[EMAIL PROTECTED]
|,4- ) )-,_. ,\ ( `'-' [EMAIL PROTECTED]
'---''(_/--' `-'\_)
