gnus/tm-gnus.el

   1 ;;;
   2 ;;;   A MIME extension for GNUS
   3 ;;;
   4 ;;; by Morioka Tomohiko, 1993/11/20
   5 ;;;
   6 ;;; $Id: tm-gnus.el,v 6.2 1995/08/31 20:21:22 morioka Exp $
   7 ;;;
   8
   9 (require 'gnus)
  10
  11
  12 ;;; @ variables
  13 ;;;
  14
  15 (defvar tm-gnus/startup-hook nil)
  16
  17
  18 ;;; @ set up
  19 ;;;
  20
  21 (cond ((string-match "^GNUS [0-3]" gnus-version)
  22        (require 'tm-gnus3)
  23        )
  24       ((string-match "^GNUS 4" gnus-version)
  25        (require 'tm-gnus4)
  26        )
  27       ((string-match "(ding)" gnus-version)
  28        (require 'tm-dgnus)
  29        )
  30       ((string-match "^Gnus v5" gnus-version)
  31        (require 'tm-gnus5)
  32        ))
  33
  34
  35 ;;; @ end
  36 ;;;
  37
  38 (provide 'tm-gnus)
  39
  40 (run-hooks 'tm-gnus/startup-hook)