Fichier de configuration de vm

[Patrice Karatchentzeff <pkarat@club-internet.fr>]

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:" ("debian-french@lists.debian.org" . "Debian-french"))
	("^Cc:" ("debian-french@lists.debian.org" . "Debian-french"))
        ("^To:" ("debian-l10n-french@lists.debian.org" . "Debian-traductions"))
	("^Cc:" ("debian-l10n-french@lists.debian.org" . "Debian-traductions"))
	("^To:" ("Guilde@imag.fr" . "Guilde"))
	("^Cc:" ("Guilde@imag.fr" . "Guilde"))
	("^To:" ("guilde@imag.fr" . "Guilde"))
	("^Cc:" ("guilde@imag.fr" . "Guilde"))))
;;
;; ne pas citer la signature dans le reply-to
;;
;; Authors:  Edwin Huffstutler <edwinh@primenet.com> & John Reynolds <zeek@primenet.com>
;; 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:pkarat@club-internet.fr 
     |,4-  ) )-,_. ,\ (  `'-'         p.karatchentzeff@free.fr
    '---''(_/--'  `-'\_)