;;; .gnus.el ---
;; Copyright (C) 1999 Sebastien Tanguy
;;
;; Author: sebastien.tanguy@wanadoo.fr
;; Version: $Id: .gnus.el,v 0.0 1999/12/24 20:43:20 seb Exp $
(defun compload (filename)
(progn
(if (file-newer-than-file-p filename
(concat filename "c"))
(progn
(message (concat "Recompilation de " filename))
(yow)
(sit-for 1)
(byte-compile-file filename)
(message (concat filename " Recompilé !"))))
(message "On charge le fichier" filename)
(load (concat filename "c") t t t)))
(compload "~/.gnus.common.el")
(let ((fichier-el (concat "~/.gnus." gnus-version-number ".el")))
(if (file-exists-p fichier-el)
(compload fichier-el)
(error (concat "Configuration non-prête : " fichier-el))))
;;; .gnus.el ends here