;;;
;;; tm-dgnus.el --- tm-gnus module for (ding) GNUS
;;;

(require 'tm-gnus5)


;;; @ version
;;;

(defconst tm-gnus/RCS-ID
  "$Id: tm-dgnus.el,v 6.18 1995/08/31 20:15:50 morioka Exp $")

(defconst tm-gnus/version
  (concat (get-version-string tm-gnus/RCS-ID) " (ding)"))

(if (not (fboundp 'mail-header-from))
    (progn
      (defalias 'mail-header-from        'header-from)
      (defalias 'mail-header-set-from    'header-set-from)
      (defalias 'mail-header-subject     'header-subject)
      (defalias 'mail-header-set-subject 'header-set-subject)
      ))


;;; @ end
;;;

(provide 'tm-dgnus)